如何将textbox中的文本按行写出到一个文本文件中?

cadsyb

lhkz

打开文本文件，VB好像有
writeline,命令，试试。

mccad

给你两个函数，一个写入，一个读出，一次完成：

2. '将文本文件读到字符串中
   
3. Function ReadFromFile(FileName As String) As String
   
4.     Dim objFSO
   
5.     Dim fdata
   
6.     Dim objCountFile
   
7.     Err.Clear
   
8.     On Error Resume Next
   
9.     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   
10.     Set objCountFile = objFSO.OpenTextFile(FileName, 1, True)
    
11.     If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
    
12.     objCountFile.Close
    
13.     Set objCountFile = Nothing
    
14.     Set objFSO = Nothing
    
15.     If Err.Number <> 0 Then
    
16.         ReadText = fdata
    
17.     Else
    
18.         ReadText = fdata
    
19.     End If
    
20. End Function
    
21. 
    
22. '将字符串写入到文本文件中
    
23. Function WriteToFile(FileName As String, fdata As String) As Boolean
    
24.     Dim objFSO
    
25.     Dim objCountFile
    
26.     Err.Clear
    
27.     On Error Resume Next
    
28.     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    
29.     Set objCountFile = objFSO.CreateTextFile(FileName, True)
    
30.     objCountFile.Write fdata
    
31.     objCountFile.Close
    
32.     Set objCountFile = Nothing
    
33.     Set objFSO = Nothing
    
34.     If Err.Number <> 0 Then
    
35.         WriteText = False
    
36.     Else
    
37.         WriteText = True
    
38.     End If
    
39. End Function
    

'将文本文件读到字符串中<br /> Function ReadFromFile(FileName As String) As String<br />     Dim objFSO<br />     Dim fdata<br />     Dim objCountFile<br />     Err.Clear<br />     On Error Resume Next<br />     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<br />     Set objCountFile = objFSO.OpenTextFile(FileName, 1, True)<br />     If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll<br />     objCountFile.Close<br />     Set objCountFile = Nothing<br />     Set objFSO = Nothing<br />     If Err.Number <> 0 Then<br />         ReadText = fdata<br />     Else<br />         ReadText = fdata<br />     End If<br /> End Function<br /> <br /> '将字符串写入到文本文件中<br /> Function WriteToFile(FileName As String, fdata As String) As Boolean<br />     Dim objFSO<br />     Dim objCountFile<br />     Err.Clear<br />     On Error Resume Next<br />     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<br />     Set objCountFile = objFSO.CreateTextFile(FileName, True)<br />     objCountFile.Write fdata<br />     objCountFile.Close<br />     Set objCountFile = Nothing<br />     Set objFSO = Nothing<br />     If Err.Number <> 0 Then<br />         WriteText = False<br />     Else<br />         WriteText = True<br />     End If<br /> End Function<br />

cadsyb