***----Writing To a File part 2----***

[mykg4orce]

thanks a lot...

secodly what if i have two list boxes one with strings and the other with integers:

lstname lstAge

Sally 12
Moe 26
Shanel 23
Hary 24

how do add both to a file??
so the text file looks like this

Sally, 12
Moe, 26
Shanel, 23
Hary, 24

please help?!!1

You can use the Replace function to do this.

Private Sub Form_Load()

Dim x(3) As String
x(0) = "Sally 12"
x(1) = "Moe 26"
x(2) = "Shanel 23"
x(3) = "Hary 24"

For i = LBound(x) To UBound(x)
List1.AddItem x(i)
Next i

End Sub


Private Sub Command1_Click()

For i = 0 To List1.ListCount - 1
strTxt = Replace(List1.List(i), " ", Chr(44) & Chr(32))
List2.AddItem strTxt
Next i

End Sub

[Dim]

Dim text As String
text = lstname.Text & "," & lstage.Text & vbCrLf
Open "C:\myfile.txt" For OutPut As #1
  Print #1, text
Close #1

Hope that helps,
D!m

[BruceG]

Assuming that the 2 listboxes are in synch with each other (i.e., they both have the same number of items and that the first item of the first box is associated with the first item of the second box, the second item of the first box is associated with the second item of the second box, etc.) you could use the following:

Dim intX       As Integer
Dim intFileNbr As Integer

intFileNbr = FreeFile
Open "C:\Whatever\MyFile.Dat" For Output As #intFileNbr

For intX = 0 to lstName.ListCount - 1
    Write #intFileNbr, lstName.List(intX), Val(lstAge.List(intX))
Next