خواندن فایل متنی از روی اینترنت

[kajooshii]

سلام
کد زیر رو بررسی نمایید. از درایو خوانده میشه .
اما بنده میخوام از سایت [ Inet1.OpenURL("www.name.com") ] خوانده بشه ! اما متاسفانه نتوانستم ..
لطفا راهنمایی فرمایید.



Open "c:\NumberPhone.txt " For Input As #1
While EOF(1) = False
ReDim Preserve my_struct(1 To counter) As struct
Input #1, my_struct(counter).strname, my_struct(counter).strlastname, my_struct(counter).strtel, my_struct(counter).strmob, my_struct(counter).strAddress
counter = counter + 1

Wend
Close #1

[meys34]

سلام

فایل متنی فرقی با به سایت نداره... در واقع یه سایت مثل گوگل یه فایل هست با پسوند htm


برای خوندن هر فایلی از اینترنت به Inet یا Webbrowser و یا ابزارهای مشابه نیاز هست...
و هیچ ربطی به دستور خواندن فایل از هارد نداره ... (Open "c:\NumberPhone.txt " For Input As #1)


همون دستوری که نوشتید درسته Inet1.OpenURL("www.name.com")

برای مثال:
MsgBox Inet1.OpenURL("http://www.w3schools.com/robots.txt")

اگر جواب نمیده باید ببینید مشکل از کجاست... اگر اروری چیزی میده بنویسید...

اگر خواستید آدرس فایل رو بدید بررسی کنیم...

[kajooshii]

دوست عزیز Inet1.OpenURL("www.name.com") درسته و کار میکنه اما بنده میخوام در کد زیر استفاده کنم که خطا میده:


Open "c:\NumberPhone.txt " For Input As #1

یعنی به جای اینکه از درایو خوانده بشه و از سایت خوانده بشه ! آیا میشه وقتی متن را از سایت خواند در متغییری ذخیره و بعد به طور مثال:


Open a For Input As #1

اجرا کرد !

لطفا سورس اتچ شده را مشاهده کنید.

[meys34]

سلام

خروجی Inet به شکل String هست... شما باید خودتون دستی اون رو بریزید توی my_struct(1) که تعریف کردید...

به این شکل:

Private Sub Form_Load()
''If Not FileExist(App.Path & "\lockcfg.txt") Then
''Call MsgBox("خطايي در اجراي نرم افزار رخ داده است", vbMsgBoxRight + vbCritical, "")
''End
''End If
''
''
''counter = 1
''next_rec = 1
'' Open App.Path & "\lockcfg.txt" For Input As #1
'' While EOF(1) = False
'' ReDim Preserve my_struct(1 To counter) As struct
'' Input #1, my_struct(counter).strname, my_struct(counter).strlastname, my_struct(counter).strtel, my_struct(counter).strmob, my_struct(counter).strAddress
'' counter = counter + 1
'' Wend
''Close #1


Dim t As String

t = Inet1.OpenURL("www.name.com")


Dim A() As String, B() As String
Dim i As Integer

A = Split(t, vbNewLine)

ReDim Preserve my_struct(1 To UBound(A) + 1)

For i = 0 To UBound(A)
B = Split(Replace$(A(i), """", ""), ",")

my_struct(i + 1).strname = B(0)
my_struct(i + 1).strlastname = B(1)
my_struct(i + 1).strtel = B(2)
my_struct(i + 1).strmob = B(3)
my_struct(i + 1).strAddress = B(4)
Next


Text1.Text = my_struct(1).strname
Text2.Text = my_struct(1).strlastname
Text3.Text = my_struct(1).strtel
Text4.Text = my_struct(1).strmob
Text5.Text = my_struct(1).strAddress

End Sub