ایجاد فایل

[morika]

سلام
آیا می شه کاری کرد که محتویات یک لیست باکس به صورت یه فایل تو کامپیوتر ذخیره بشه بعد از طریق همون فایل محتویات لسیت باکس رو (تو خودش) دوباره بازیابی کرد؟

یه سوال : چه جوری میشه تمام محتویات یک لیست باکس رو تو یه تکس باکس به وجود آورد و برعکس

ممنون

[اوبالیت به بو]

آیا می شه کاری کرد که محتویات یک لیست باکس به صورت یه فایل تو کامپیوتر ذخیره بشه بله


FileNumber = FreeFile
FilePath = "C:\Test.txt"
strText = Empty
Dim x%
For x = 0 To List1.ListCount - 1
strText = strText & vbCrLf & List1.List(x)
Next x
'MsgBox strText
'Text1.Text = strText
Open FilePath For Output As #FileNumber
Print #FileNumber, strText
Close #FileNumber



بعد از طریق همون فایل محتویات لسیت باکس رو (تو خودش) دوباره بازیابی کرد؟
بله


FileNumber = FreeFile
FilePath = "C:\Test.txt"
strText = Empty
Open FilePath For Input As #FileNumber
While (Not (EOF(FileNumber)))
Line Input #FileNumber, strBuffer
' strText = strText & vbCrLf & strBuffer
List2.AddItem strBuffer
Wend
Close #FileNumber
' MsgBox strText

یه سوال : چه جوری میشه تمام محتویات یک لیست باکس رو تو یه تکس باکس به وجود آورد و برعکسهمون طور كه تويه فايل اين داده ها رو مي نويسيد همون طور هم داخل TextBox به نمايش در مياريد با اين تفاوت كه ديگه تو فايل ذخيره نمي كنيد. يعني:


Dim x%
For x = 0 To List1.ListCount - 1
strText = strText & vbCrLf & List1.List(x)
Next x
'MsgBox strText
Text1.Text = strText


اين سوالات رو مي تونيد به چندين روش مختلف كدش رو پياده سازي كنيد.

[morika]

خیلی ممنون از جواب کاملتون
یه سوال دیگه که برام پیش اومده اینه که چه جوری ایتم های جدید لیست باکس رو در ادامه ایتم های موجود در فایل دخیره کرد؟
خیلی ممنون

[xxxxx_xxxxx]

Open FilePath For Append As #FileNumber

[r0ot$harp]

سلام
آیا می شه کاری کرد که محتویات یک لیست باکس به صورت یه فایل تو کامپیوتر ذخیره بشه بعد از طریق همون فایل محتویات لسیت باکس رو (تو خودش) دوباره بازیابی کرد؟

یه سوال : چه جوری میشه تمام محتویات یک لیست باکس رو تو یه تکس باکس به وجود آورد و برعکس

ممنون



Private Sub Cmd_Write_Click()

For i = 1 To 10
List1.AddItem "Parniyan Soft " & i
Next i

Open App.Path & "\Temp.txt" For Append As #1

For i = 0 To List1.ListCount - 1

Print #1, List1.List(i)

Next i

Close #1
End Sub

Private Sub cmdRead_Click()

Dim Buf As String

List1.Clear
Open App.Path & "\Temp.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, Buf

If Buf <> "" Then
List1.AddItem Buf
End If

Loop

Close #1
End Sub

[MHZ_zamani]

چگونه به ایتم های listbox در vb دستیافت راههای زیادی امتحان کردم نشد

[M.T.P]

در کد زیر منظور از x شماره آیتم لیست هست


list1.list(x)

خروجی متن آیتم لیست هست

[MHZ_zamani]

امتحان کردم نمی شه

[M.T.P]

منظورتون رو واضح تر بیان کنید؟