vb提取每行的最后两个数字和排序

发布网友发布时间：2024-10-22 07:39

共1个回答

热心网友时间：2024-11-22 03:27

本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。然后分离，赋予S变量。
Dim TextLine AS string, S as string
Open "TESTFILE " For Input As #1 ' 打开文件。
N=1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
t=split(textline,"T") ‘以T来分开到数组中
s=t(ubound(t)) & " " & s '将T后面的数字（字符串）添加到结果中
Loop
Close #1 ' 关闭文件。
msgbox s追问s=t(ubound(t)) & " " & s '将T后面的数字（字符串）添加到结果中
下标越界

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com