Post til internet side & Se source fra html fil (2spm)

Hrm, jeg forstår ikke helt hvad du mener med 2'eren. Altså, kan du ikke bare åbne sourcekoden i notesblok trykker ctrl+b og skrive en del af det der skal findes i linjen? aner ikke om det er det du er ude efter, prøv evt. at speciferer nærmere.

Det den skal, er at gå til en bestemt sted i en kode.. og skære noget væk.. derefter skal jeg bruge det den er kommet frem til i en If..

Her er kode til at hente kildekoden på en html side:

Kopier dette ind i en form med en knap der hedder Command1:

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 Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
 
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True

End Function

Private Sub Command1_Click()
    Dim URLaddr As String, Localaddr As String
    Dim strSource As String, strSearch As String, i As Long

    URLaddr = "http://www.eksperten.dk"
    Localaddr = "En sti til en tekstfil.txt"

    DownloadFile URLaddr, Localaddr
   
    Open Localaddr For Input As #1
        strSource = StrConv(InputB(LOF(1), #1), vbUnicode)
    Close #1

End Sub

-Du skal naturligvis indsætte korrekt URL og lokal sti.

/tjacob

Herefter kan du jo lave alskens almindelige tekstsøgninger i både variablen og filen.

Hvis jeg nu skal finde en bestemt linie i tekstdokumentet, hvordan gør jeg så det?

Glemte den sidste kommentar.. men mangler stadig svar på mit første spørgsmål..

1)
Jeg skal bruge noget kode som ved hjælp af en pushbutton kan poste info fra en eller flere textfelter i formen til en html side!