UC知道VB文件操作问题（如何进行G代码的修改）
来源：百度知道 编辑：UC知道 时间：2024/06/28 20:05:46
我要用VB做一个文件修改的程序。G代码文件存于记事本中，如下形式：
(圆平面,2008.4.1,15:48:12.218)
N10G90G54G00Z100.000
N12S3000M03
N14X0.000Y0.000Z100.000
N16X50.000
N18Z20.010
N20G01Z10.010F100
N22X49.984Y-1.282F1000
N24X49.933Y-2.596
N26X49.844Y-3.941
N28X49.716Y-5.318
N30X49.546Y-6.726
N32X49.329Y-8.164
N34X49.064Y-9.631
N36X48.746Y-11.126
N38X48.374Y-12.648
N40X47.943Y-14.195
N42X47.450Y-15.764
...
我的修改是从N24那一行开始，前面不做修改，后面有X，Y两个坐标，每行代表坐标的一个点，我需要读入这些点，并且根据点的位置关系做出删除、添加行的操作，我怎么把每行的X，Y坐标读入程序的变量中进行处理，比如第N24行，N24X49.933Y-2.596，我怎么把49.933读入程序的代表X坐标的变量中，怎么识别X后面的数字就是我要得到的，每行的中间没有其他标点符号或空格
是数控加工程序
三楼的朋友回答的方案是可行的，我将采用，非常感谢！
不过还有一个小问题想请教，我准备用随机文件，我想每一行成为一条记录，但是记录的长度是似乎固定的，而G代码每一行的长度是变的，如：N24X49.933Y-2.596 与N2500X49Y50，如果采用固定长度的话，就会乱了，是否可以以换行符为标志，每两个个换行符之间为一个记录。或者固定一个比每行代码都长的长度，然后不够的话用空格补齐。
小弟初学vb，还请不吝赐教，小弟先谢过了！
(圆平面,2008.4.1,15:48:12.218)
N10G90G54G00Z100.000
N12S3000M03
N14X0.000Y0.000Z100.000
N16X50.000
N18Z20.010
N20G01Z10.010F100
N22X49.984Y-1.282F1000
N24X49.933Y-2.596
N26X49.844Y-3.941
N28X49.716Y-5.318
N30X49.546Y-6.726
N32X49.329Y-8.164
N34X49.064Y-9.631
N36X48.746Y-11.126
N38X48.374Y-12.648
N40X47.943Y-14.195
N42X47.450Y-15.764
...
我的修改是从N24那一行开始，前面不做修改，后面有X，Y两个坐标，每行代表坐标的一个点，我需要读入这些点，并且根据点的位置关系做出删除、添加行的操作，我怎么把每行的X，Y坐标读入程序的变量中进行处理，比如第N24行，N24X49.933Y-2.596，我怎么把49.933读入程序的代表X坐标的变量中，怎么识别X后面的数字就是我要得到的，每行的中间没有其他标点符号或空格
是数控加工程序
三楼的朋友回答的方案是可行的，我将采用，非常感谢！
不过还有一个小问题想请教，我准备用随机文件，我想每一行成为一条记录，但是记录的长度是似乎固定的，而G代码每一行的长度是变的，如：N24X49.933Y-2.596 与N2500X49Y50，如果采用固定长度的话，就会乱了，是否可以以换行符为标志，每两个个换行符之间为一个记录。或者固定一个比每行代码都长的长度，然后不够的话用空格补齐。
小弟初学vb，还请不吝赐教，小弟先谢过了！
数控的代码？
s="N24X49.933Y-2.596"
nx=instr(s,"X")
ny=instr(s,"Y")
x=mid(s,nx+1,ny-nx-1)
y=mid(s,ny+1)
不用随机
以input读入
Line Input #1, s 读入一行，再分析
利用随机文件可以达到你的要求，随机文件可以读取文本文件中的任何一条记录，但是这个文本文件必须是以随机文件存储的。
每个试一试!希望你成功!!!!!!!!!!!!!!!!!!!!!!!