vb怎样判断文本文件的某行不是空行?

如果h代表文本文件中的某一行，怎样判断h不是空行？

if h="" then
也可以 if trim(h)="" then ‘忽略空格

private sub command1_click() dim tx() as string, tmp as string, n as integer '首先将txt文件里面非空行的内容读进数组tx里 open "d:\a.txt" for input as #1 n = 0 do while not eof(1) line input #1, tmp if tmp <> "" then redim preserve tx(n) tx(n) = tmp n = n + 1 end if loop close #1 '然后就清空txt文件，把数组tx里面的内容写进去就可以了 open "d:\a.txt" for output as #2 cls for i = 0 to ubound(tx) print #2, tx(i) next close #2 '如果你是要将过滤了空行的内容读进文本框里面，那么： for i = 0 to ubound(tx) text1.text = text1.text & tx(i) & vbcrlf next end sub