VB处理文本数据的小问题

显示全部楼层 · 2008-6-15 02:48:54

有一文本数据，格式为：
a-b-c-d
e-f-g-h
i-j-k-l
……
（字母代表任意长度字符串）
现在想提取里面的数据分别存到两个文本中
a-b
e-f
i-j
……
前一段存入文本1中
c-d
g-h
k-l
……
后一段存入文本2中
怎样才能实现？

千问 · 2008-6-15 02:48:54

Private Sub Command1_Click()Dim bOpen 源文件 For Input As #1Open 文本1 For Output As #2Open 文本2 For Output As #3Do While Not EOF(1)Input #1, ab = Split(a, "-")Print #2, b(0); "-"; b(1)Print #3, b(2); "-"; b(3)LoopClose #1Close #2Close #3End Sub没有检验源文件每行是不是都有且只有三个“-”，这点你自己保证；三个文件的路径、名字和扩展名，你自己设定。

千问 · 2008-6-15 02:48:54

上面的实时错误“9”下标越界Input #1, a 这句应该为Line Input #1, a