چطور میتونم یک فایل تکست رو با CommonDialog باز کنم و از اطلاعاتش استفاده کنم ؟

[1009645]

سلام دوستان من کد CommonDialog رو نوشتم اما نمیدونم چجوری اطلاعات فایل تکستی رو که باز میکنم وارد یک ListBox بکنم ؟

من تا اینجا کدش رو نوشتم :


Private Sub load_Click()
dlg.Filter = "Text File (*.txt)|*.txt"
dlg.ShowOpen
End Sub


برای استفاده از اطلاعات فایل تکست چه کدی لازمه ؟

[niksalehi]

سلام


dlg.Filter = "Text File (*.txt)|*.txt"
dlg.ShowOpen
If dlg.FileName > "" Then
With list1
Dim sCL$
.Clear
Open dlg.FileName For Input As #1
Do Until EOF(1)
Line Input #1, sCL$
.AddItem sCL$
Loop
Close #1
End With
End If

[1009645]

ممنون ! ببخشید 1 سوال دیگه

من اگر بخوام ایت اطلاعات وارد شده رو که گرفته ار فایل تکست وارد یک سایت کنه و به ترتیب ثبتش کنه چه کار باید بکنم ؟ { بیشتر کدش رو نوشتم }

فکر کنم این قسمتش مشکل داره :

WB.Document.GetElementById("blogmail").Innertext = list1.ItemData

[oYaMaa]

ممنون ! ببخشید 1 سوال دیگه

من اگر بخوام ایت اطلاعات وارد شده رو که گرفته ار فایل تکست وارد یک سایت کنه و به ترتیب ثبتش کنه چه کار باید بکنم ؟ { بیشتر کدش رو نوشتم }

فکر کنم این قسمتش مشکل داره :

WB.Document.GetElementById("blogmail").Innertext = list1.ItemData
سلام!
این کد رو امتحان کنید، ان شا ا... جواب میده:
WB.Document.GetElementById("blogmail").value= list1.ItemData


یا حق!

[1009645]

همون اررور قبلی رو میده :

http://www.uploade.ir/images/1ugj4lzrhn2orwxhhx9i.png

[محسن واژدی]

همون اررور قبلی رو میده :
...


سلام علیکم
باید index آیتم نیز در List1.ItemData مشخص شود، برای مثال (رشته قرمز رنگ):
WB.Document.getElementById("blogmail").Value = List1.ItemData(0)

موفق باشید

[1009645]

برنامه کار نمیکنه دیگه کلا

[M.T.P]

می تونید بدون Listbox مستقیم اینکار رو انجام بدید.



Dim strData As String
Dim intFN As Integer

dlg.Filter = "Text File (*.txt)|*.txt"
dlg.ShowOpen

If dlg.FileName <> vbNullString Then
intFN = FreeFile
Open dlg.FileName For Input As intFN
strData = Space$(LOF(intFN))
strData = Input(LOF(intFN), intFN)
Close intFN
WB.Document.GetElementById("blogmail").Innertext = strData
End If

[1009645]

من اگر بخوام تعداد زیادی ایمیل وارد کنم نمی تونم همه رو دستی وارد کنم که

[1009645]

چه کنم دوستان ؟

[1009645]

???????????????????????????????????????????????~!!

[1009645]

الووووووووووووووووووووووو ووووووووووووو