怎么用VB提取每行J1=后的数字到表格中 G01 Z=-2.009 Y=5.687 G01 Z=-2.024 Y=5.686 CIP Z=-1.923 Y=5.495 K1=-1.973 J1=5.59 CIP Z=-1.799 Y=5.253 K1=-1.86 J1=5.374
时间: 2024-06-17 22:06:40 浏览: 12
您可以使用VB中的字符串处理函数和正则表达式来提取每行J1=后的数字到表格中。以下是示例代码:
```
Dim str As String
Dim pattern As String
Dim regEx As New RegExp
Dim match As MatchCollection
Dim i As Integer
'读取文本文件
Open "file.txt" For Input As #1
Do Until EOF(1)
Line Input #1, str
'使用正则表达式匹配J1=后的数字
pattern = "J1=(-?\d+\.?\d*)"
regEx.Pattern = pattern
Set match = regEx.Execute(str)
'将匹配结果添加到表格中
For i = 0 To match.Count - 1
Worksheets("Sheet1").Cells(i + 1, 1).Value = match.Item(i).SubMatches.Item(0)
Next i
Loop
Close #1
```
请注意,此代码仅适用于您的示例文本文件,如果您的文件格式不同,可能需要进行相应修改。
相关问题
M1 G01X-55.4350Y27.0020 G04D01 G01Y27.4570
根据提供的引用内容,M1是一种停止命令,它通常用于在加工过程中暂停机器,以便进行人工操作或更改工具等。在提供的代码中,M1没有被使用,因此这段代码只是简单地移动了机器的坐标位置,并在某些点上进行了暂停。G01表示直线插补模式,X和Y表示在X和Y轴上移动的距离,D01表示在移动过程中进行切割。G04D01表示在移动过程中暂停1个单位的时间。因此,这段代码的作用是将机器从当前位置移动到X=-55.4350,Y=27.0020的位置,然后暂停1个单位的时间,最后将机器移动到Y=27.4570的位置。
G01X-17.7080Y155.0830
根据提供的引用内容,G01和G02是G代码中的两个基本指令,用于控制CNC机床上的直线和圆弧插补运动。X和Y是直线插补指令的坐标参数,分别表示在X轴和Y轴上的移动距离。因此,G01 X-17.7080 Y155.0830表示在X轴上向左移动17.7080个单位,在Y轴上向上移动155.0830个单位。
相关推荐
![ppt](https://img-home.csdnimg.cn/images/20210720083527.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)