如何解决这个问题？关于TXT

如何解决这个问题？Dim txt As String '定义一个字符型变量，用于储存被打开的文本文件的内容 
Dim thisline As String '这个用来储存刚读出来的那行 '读出： 
Open CommonDialog1.FileName For Input As #1 
Do While Not EOF(1) 
Input #1, thisline 
txt = txt & thisline & vbCrLf'<<===这样可以“原汁原味”地读取TXT文件，但是…
Loop 
Close #1 Text1.Text = txt 这段代码每执行一次，txt变量就在末尾多一个vbcrlf，这是因为带箭头注释的那行代码。解决的办法似乎是判断如果是在最后一行就不要加换行了，如何实现呢？多谢。

解决方案 »

  1.   

    txt = txt & thisline
      

  2.   

    加一句：
    SendKeys "{bs}"
      

  3.   

    应该是：
    For i = 1 To 4
    Lineb = "line" & i
    text1 = text1 & Lineb & vbCrLf
    Next
    Text1 = Trim(txt)
    Text1.SelStart = Len(Text1)
    Text1.SetFocus
    SendKeys "{bs}"
      

  4.   

    看不懂啊，怎么出现了lineb text1这些奇怪的变量？还有，能不能每行注释一下？多谢,我菜！~~
      

  5.   

    Input #1,vbcrlf & thisline 
    txt = txt & thisline最后再把头上vbcrlf去掉
      

  6.   

    哦~~~
    想到了
    Input #1,thisline 
    txt = txt & iif(txt="",thisline ,vbCrlf & thisline )