各位大虾：这样把listbox内的数据保存到一个txt文件里；有分拿哟

[qiusuo]

我想把listbox内的每一项保存到一个txt文档里
不知道这样操作，希望能得到你们的帮助

[enmity]

关键是你要如何利用这些数据。

如果是纯文本项目，建议你使用INI格式。

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal Appname As String, ByVal keyName As Any, ByVal NewString As Any, ByVal FileName As String) As Integer

Public Function Rtv_Ini_Data$(ini_File$, ini_Section$, ini_Entry$)

On Error GoTo handleReadIniDataErr

Dim temp_string As String

Rtv_Ini_Data$ = ""

Section$ = ini_Section$
Entry$ = ini_Entry$
DefaultValue$ = "<未知>"
EntryValue$ = Space$(1000)
EntryValueSize = 1000

x% = GetPrivateProfileString(Section$, Entry$, DefaultValue$, EntryValue$, EntryValueSize, ini_File$)

Len_string = Len(Trim$(EntryValue$)) - 1
temp_string = Left$(EntryValue$, Len_string)
Rtv_Ini_Data$ = temp_string

EntryValue$ = ""

Exit Function


handleReadIniDataErr:
EntryValue$=DefaultValue$

End Function


Public Function Upd_Ini_Data$(ini_File$, ini_Section$, ini_Entry$, EntryValue$)

On Error GoTo handleUpdateIniDataErr

Upd_Ini_Data$ = ""

Section$ = ini_Section$
Entry$ = ini_Entry$

x% = WritePrivateProfileString(Section$, Entry$, EntryValue$, ini_File$)

Exit Function


handleUpdateIniDataErr:
msgbox Err.Description

End Function

[griefforyou]

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim num As Integer
num = FreeFile()
Open "C:\dd.txt" For Output As num
For i = 0 To List1.ListCount - 1
Print #num, List1.List(i)
Next
Close #1
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem "text" & i
Next
End Sub

[enmity]

如果简单地使用文本文件：



Public sub LoadListFromTextFile(tFile As String)

Dim iValue as string, Init as integer

iValue = ""
Init = FreeFile
Open tFile For Input As #Init
Do While Not EOF(Init)
Line Input #Init, One_Line
List1.AddItem One_Line
Loop
Close #Init

End sub


Public Sub SaveTextFile(sFile As String)

Dim Init as integer

Init = FreeFile
Open sFile For Output As #Init
for init=1 to list1.listcount
Print #Init, list1.list(init-1)
Close #Init
next

End Function


上面是手工即时写的，如果有错误，请自行修改。