انتقال تکستباکس به لیستباکس!

[niksalehi]

سلام :قلب:
یه سوال داشتم! ببخشید که ابتداییه دیگه
میخواستم یه کامند باتن بزارم، کلیک که کردیم بتونیم مسیر یک فایل تکست رو بدیم...
بعد که مسیر فایل رو دادیم، اون فایل تکست توی لیست باکس نشون داده بشه! ممنونم :خجالت:

[ارمین نصیری]

با کدام زبان می خواهید

[niksalehi]

قطعا vb6 !!!!!

[امین مستانی]

سلام :قلب:
یه سوال داشتم! ببخشید که ابتداییه دیگه
میخواستم یه کامند باتن بزارم، کلیک که کردیم بتونیم مسیر یک فایل تکست رو بدیم...
بعد که مسیر فایل رو دادیم، اون فایل تکست توی لیست باکس نشون داده بشه! ممنونم :خجالت:


سلام

ابتدا باید فایل رو بصورت Input باز کنید سپس خط به خط بخونید و وارد لیست باکس بکنید .

نمونه :


Dim strRead As String
Open "C:\Test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strRead
List1.AddItem strRead
Loop
Close #1


موفق باشید

[mrs225]

کاری خاصی نداشت
http://uplod.ir/w69eccqaqd9q/text_To_List.zip.htm

[niksalehi]

من نمیخوام مسیر فایل از قبل مشخص باشه! میخوام کاربر خودش مسیر بده!

[امین مستانی]

من نمیخوام مسیر فایل از قبل مشخص باشه! میخوام کاربر خودش مسیر بده!

میتونید با CommonDialog آدرس رو از کاربر بگیرید

در سایت جستجو کنید نتایج زیادی پیدا می کنید .

موفق باشید

[niksalehi]

ممنون از دوستان


Private Sub Command1_Click()
CommonDialog1.Filter = "TexT File(s)|*.TXT"
CommonDialog1.ShowOpen
'List1.AddItem CommonDialog1.?????

If CommonDialog1.FileName > "" Then
With List1

Dim sCL$

.Clear
Open CommonDialog1.FileName For Input As #1

Do Until EOF(1)
Line Input #1, sCL$
.AddItem sCL$
Loop

Close #1
End With

End If

End Sub