GOTO / 276.9030638495, 0.0000000000, 68.4009375000
GOTO / 276.9030638495, 1.9963192299, 68.4009375000
GOTO / 126.1013337483, 1.9963192299, 68.4003795121
GOTO / 124.9592567799, 1.8219915506, 68.4004282381
GOTO / 123.8115984115, 1.6892880812, 68.4004653299
GOTO / 122.6598751714, 1.5983841777, 68.4004907383
GOTO / 121.5056089594, 1.5493999615, 68.4005044298
GOTO / 120.3503250358, 1.5424001608, 68.4005063863
。
。
。
上面是一个txt里面几百行行文本，怎么才能编成如下另一个text文本
began1
276.9030638495, 0.0000000000, 68.4009375000
276.9030638495, 1.9963192299, 68.4009375000
end 1
began2
126.1013337483, 1.9963192299, 68.4003795121
124.9592567799, 1.8219915506, 68.4004282381
end2
began3
123.8115984115, 1.6892880812, 68.4004653299
122.6598751714, 1.5983841777, 68.4004907383
end3
began4
121.5056089594, 1.5493999615, 68.4005044298
120.3503250358, 1.5424001608, 68.4005063863
end4
等等。
就是读取一个文件，删除每行的GOTO /.然后每两行开头加beganX，结尾加endX
请大神指点，感谢！

我可以做

你不就是想
把每行行首的goto/去掉，然后每两行为单位加上开头及编号、结尾及编号

计数=1
do while not eof（1）
print #2，“began”；cstr（计数）
line input #1，a
print #2，right（a，len（a）-7）
line input #1，a
print #2，right（a，len（a）-7）
print #2，“end”；cstr（计数）
计数=计数+1
loop
前面加上打开文件的open
后面加上关闭文件的close
应该就好了

Private Sub Command1_Click()
Open "c:\student.txt" For Input As #1
Open "c:\student2.txt" For Output As #2
Dim A As String
Dim c() As Integer
Dim I As Integer
I = 1
Do While Not EOF(1)
Line Input #1, A
c(I) = Right(A, Len(A) - 7)
I = I + 1
Loop
Close #1
End Sub
------》》》为什么c(I) = Right(A, Len(A) - 7)提示不匹配呢？请老师给看下，怎么才能赋值给数组c(),谢谢！

第一步按行读取文件，对于每一行，vb.net里可以用right截取需要字符串，然后用split函数按逗号分割并强制转为浮点类型，返回值自动存入数组。
第二部写文件，获取数组大小，做个循环，将数组中的内容打印到txt中，加上你需要的特定字符串和换行符。

赞一个