vb读写txt文件

显示全部楼层 · 2012-7-6 13:07:17

测试通过Private Sub Form_Load()Dim s As String, fs As String, c As Long, b As Integer 'b用于标记位置Open "该文件所在路径" For Input As #12 '打开文件Do While Not EOF(121)Line Input #121, sIf Left(s, 9) = "Frequency" Then b = 1 '读入开头部分If Left(s, 11) = "10.00000000" Then c = Seek(121): Exit DoIf b = 0 Then fs = fs & s & vbNewLineLoop ...

千问 · 2012-7-6 13:07:17

'你这就是非表格的东西用表格的方式来处理'我就问你一句:你第二列和第三列的第一行怎么相加或怎么处理?'如果每一列之间都是逗号还好处理,因为空格数不确定,处理后还得排版Private Sub Command1_Click()Dim s$, st$, t() As StringOn Error Resume NextOpen "g:\1....

千问 · 2012-7-6 13:07:17

1000多也一样，在excel中使用宏（VBA），VB的一个分支，使用循环的方法，读取文本文件生成1000多同名EXCEL表，同时进行数据处理，要比VB方便很多。如果数据量不大时（03版6.5行、07版10多万行），还可以将1000多文件合并到一个工作表中，省得一个个打开查看。...

千问 · 2012-7-6 13:07:17

请粘贴一行数据，这样便于编程！...

千问 · 2012-7-6 13:07:17

我建议你把TXT文件的内容复制到EXCEL中，然后用公式一加即可得到你想要的数据不需要编写VB程序...