请教高手怎么用vb编写读取文本下一行

显示全部楼层 · 2009-1-16 20:06:42

如果读取到一行是空的，则直接把下一行的内容显示出来。这个怎么弄啊，大家帮帮忙

千问 · 2009-1-16 20:06:42

dim tem as string,fildata as string open "文件" for input as #1 do until eof(1) line input #1,tem '读取的这一行的内容存入变量tem if tem="" then '如果这行的内容是空的就显示下一行内容 line input #1,filedata '将空行的下一行内容存到变量filedata print "读取的内容是:" & filedata end if loop close #1...

千问 · 2009-1-16 20:06:42

1.直接读取文本Private Sub Command1_Click()Dim i As IntegerDim aDim bOpen "c:\1.txt" For Binary As #1a = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1b = Split(a, vb...

千问 · 2009-1-16 20:06:42

先读一行，放入一个变量a,If a="" then
再读下一行End If参考一下，上面的汉字总分怎么改成程序，我想你应该知道。...