空格,可恶的空格.....

Question

麻烦哪位大哥指点一下:取a.txt文件的内容然后输出到b.txt里面,a.txt里面最后几行是空格,我想把这几行空格取消再输出,先谢了,又或者,取出a.txt的内容到一数组里的时候,判断如果有空格就不加到list里面,没有空格的就加到list里面,如果答案是后者的话就最好了,毕竟再输出到b.txt里面的话又得让系统多干点活了...

Answer 1

用Trim 试过,结果只回了第一行的数据,其它行全部忽略了...
strReturn倒没用过,问一下, "str",是代表我取出来的数组吗？

Answer 2

line input #1 ,MyData
if MyData<>"" then
   print #2, MyData
endif

Answer 3

line input #1 ,MyData 
if trim(MyData)<>"" then 
  print #2, MyData 
endif 

Answer 4

replace(MyData,vbCrlf,"")
replace(MyData," ","")

Answer 5

Tirm是VB专门为取出空格而生的：）

Answer 6

不关 Trim 什么事。楼主是要去掉文件尾的空行。Dim strTmp As StringOpen App.Path & "\a.txt" For Input As #1
Open App.Path & "\b.txt" For Output As #2Do Until EOF(1)
    Line Input #1, strTmp
    If strTmp > "" Then Print #2, strTmp
LoopClose #2
Close #1

Answer 7

又或者,取出a.txt的内容到一数组里的时候,判断如果有空格就不加到list里面,没有空格的就加到list里面    Dim fp As Integer
    fp = FreeFile()
    
    Open "a.txt" For Input As fp
    
    While Not EOF(fp)
        Dim buffer As String
        Line Input #fp, buffer
        
        If Trim(buffer) <> "" Then
            Call List1.Add(buffer)
        End If
    Wend
    
    Close fp