请教怎样对文本文件做这样的操作

Question

新建一个txt文本,
首先打开这个txt文本,按行读取内容,往新的文本中些

Answer 1

新建TXT，按行读取
dim szTemp as string
dim szline as string
dim  kk as string...read a line to szline from file
kk=chr(10) & chr(13)
do while not eof(yourfile)
  if right(szline,2)=kk then
     sztemp=sztemp & left(SZLINE,instr(SZLINE,CHR(10))-1)
  END IF
  IF NOT EOF(YOURFILE) THEN
     LINE INPUT #YOURFILE ,SZLINE
  END IF
loop
最后把sztemp写新的文本即可

Answer 2

我的思路：
Private Sub Form_Load()
Dim d
Dim str As String
Open "d:\t1.txt" For Input As #1
 Do While Not EOF(1)
   Line Input #1, d
   d = Replace(d, vbCrLf, " ")
   str = str & d
 Loop
Close #1
Open "d:\t2.txt" For Output As #2
  Write #2, , str
  Close #2
End Sub

Answer 3

hengxin54(恒欣) :THANK U VERY MUCH!CAN U GUYS GIVE ME SOME OTHER METHODS?谢谢了，马上扇分

Answer 4

我的思路：
Private Sub Form_Load()
'读取t1.txt文件到"richtextbox1"控件,"richtextbox1"控件须加栽                   
 richtextbox1.loadfile d:\t1.txt",1  
'如须保存为t2.txt则:
  richtextbox1.savefile d:\t2.txt,rtftext
end sub