Visual Basic 6 ... HTML

#1
rcohut

Posted 22 May 2003 - 09:34

Junior Member

Grup: Members
Posts: 35
Înscris: 11.12.2002

Cum pun intr-o variabila cifra aferenta campului "Curs referinta" care se afla pe pagina "http://www.kmarket.ro/apec/companypage.php3?societate=SNP"? (la ora asta ea fiind 1290)???

Mentionez ca ies pe net prin proxy!

Am inteles ca ar trebui sa aduc HTML-ul local si sa caut in text sau ceva asemanator, dar nu ma descurc.
Cu componenta WebBrowser pot sa vad pagina intr-un form (deci de proxy trece) ... dar mai departe ... :(

THX!

Back to top

#2
pstdgt

Posted 22 May 2003 - 09:50

Monseurizat

Grup: Administrators
Posts: 5,849
Înscris: 06.02.2002

dupa ce iei pagina cauti in ea bucata asta de cod:

Curs referinta

imediat dupa ea vei avea cursul ala (acum e 1290)

Back to top

#3
rcohut

Posted 22 May 2003 - 10:23

Junior Member

Grup: Members
Posts: 35
Înscris: 11.12.2002

dar problema mea e cum aduc pagina local!!!

Back to top

#4
pstdgt

Posted 22 May 2003 - 10:32

Monseurizat

Grup: Administrators
Posts: 5,849
Înscris: 06.02.2002

Quote

Cu componenta WebBrowser pot sa vad pagina intr-un form (deci de proxy trece) ... dar mai departe ...

pai daca o vezi acolo nu poti sa o iei din ea?

daca nu, va trebui sa faci o conexiune la portul 80 al serverului respectiv apoi un GET la pagina aia (asta presupune ca stii ceva sockets si protocolul http)

Back to top

#5
AndiOliver

Posted 24 May 2003 - 07:59

Junior Member

Grup: Members
Posts: 219
Înscris: 27.02.2003

Mai intai iti vei deschide un modul, sa presupunem 'Net':

In acest modul declara urmatoarele:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0

Private Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
   DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function

Public Function Download(MyUrl As String, MyDestination As String)
  Dim hFile As Long
    If DownloadFile(MyUrl, MyDestination) Then
        hFile = FreeFile
        Open MyDestination For Input As #hFile
        Close #hFile
   End If
End Function

Bineinteles (este evident din cod) atunci cind vei face download chemi functia publica Download unde:
MyUrl este adresa paginii tale asp:
"http://www.kmarket.ro/apec/companypage.php3?societate=SNP"

Iar MyDestination va fi spre exemplu:
"C:TempFisierTemporar.txt"

Nu-ti mai ramane decit sa citeste apoi FisierTemporar.txt.

Hint: Incearca atunci cind faci cererea asp ca informatia sa aiba la inceput si la sfirsit un semn unic pe care sa-l cauti in functia ta de
stripmyval.
Ex: ~1290~
Astfel il vei gasii mult mai usor (eu cel putin asa am facut)

Mult succes!

Back to top

#6
pstdgt

Posted 24 May 2003 - 09:34

Monseurizat

Grup: Administrators
Posts: 5,849
Înscris: 06.02.2002

1290 e informatie variabile, nu se poate lega de ea. cel mai simplu e sa faca as acum am zis eu. sa caute acel text. imediat DUPA el, va veni numarul ala.

Back to top

#7
AndiOliver

Posted 26 May 2003 - 07:52

Junior Member

Grup: Members
Posts: 219
Înscris: 27.02.2003

Nu se leaga de 1290. Este clar ca este o variabila fiind obtinuta prin metoda GET sa presupunem dintr-o baza de date.
In schimb se poate lua de "~" care nu este o variabila ci o constanta de pagina si care presupune inceperea variabilei. Exemplu pagina asp:

<body>

~<%=(YourRecord.Fields.Item("Nume").Value)%>~ 

</body>

unde: <%=(YourRecord.Fields.Item("Nume").Value)%> este variabila
iar: ~ delimiteaza inceputul precum si sfirsitul variabilei.

Si uite si un exemplu de preluare din codul paginii de asp doar a variabilei 'Nume' presupunind ca tot codul asp a fost preluat intr-0 variabila MyString

Dim cicle as integer, extract as string, ex as string, mycount as integer



For cicle=1 to len(mystring)

 extract = mid(mystring,cicle,1)

 if extract = "~" then mycount = mycount +1

 if mycount = 1 then ex = ex & extract

 if mycount = 2 then goto MyNext

next

MyNext:

Astfel 'ex' va incepe sa se incarce de abia dupa ce da de "~'

Back to top

#8
rcohut

Posted 26 May 2003 - 08:55

Junior Member

Grup: Members
Posts: 35
Înscris: 11.12.2002

Am reusit sa aduc local html-ul:

Public Sub GetData()
WebBrowser1.Navigate ("http://www.kmarket.ro/apec/companypage.php3?societate=SNP")

Dim b() As Byte
Dim s As String
Dim strURL As String
strURL = "http://www.kmarket.ro/apec/companypage.php3?societate=SNP"
b() = Inet1.OpenURL(strURL, icString)

Open "C:SNP.txt" For Binary Access _
Write As #1
Put #1, , b()
Close #1
End Sub

Am folosit doua componente: WebBrowser si Inet
Problema mea reala sa rezumat la autentificare prin cele 2-3 proxy-uri prin care tre sa tre pana la net (web proxy) ... si am reusit incarcand pagina in WebBrowser (care se autentifica cu setarile din registry) dupa care cu componenta Inet am reusit sa aduc pagina cu codul de mai sus!
Fara autentificarea lu' WebBrowser nu puteam sa ajung pe net prin Inet (probabil ca se poate, dar nu am reusit).

Acuma ramane sa sap in txt dupa 1290 ala, stiind ca o linie de text mai sus tre sa contina "Curs de referinta" care ramane suficient de constant, dupa care incep sa macin randul urmator.

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

Visual Basic 6 ... HTML

#1 rcohut Posted 22 May 2003 - 09:34

#2 pstdgt Posted 22 May 2003 - 09:50

#3 rcohut Posted 22 May 2003 - 10:23

#4 pstdgt Posted 22 May 2003 - 10:32

#5 AndiOliver Posted 24 May 2003 - 07:59

#6 pstdgt Posted 24 May 2003 - 09:34

#7 AndiOliver Posted 26 May 2003 - 07:52

#8 rcohut Posted 26 May 2003 - 08:55

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
rcohut

Posted 22 May 2003 - 09:34

#2
pstdgt

Posted 22 May 2003 - 09:50

#3
rcohut

Posted 22 May 2003 - 10:23

#4
pstdgt

Posted 22 May 2003 - 10:32

#5
AndiOliver

Posted 24 May 2003 - 07:59

#6
pstdgt

Posted 24 May 2003 - 09:34

#7
AndiOliver

Posted 26 May 2003 - 07:52

#8
rcohut

Posted 26 May 2003 - 08:55