Probleme mit inet-Control bzgl. string-Größe

[Hamadi]

Hallo,

ich habe ein Problem mit dem inet-control.
Ich will den Quellcode einer HTML-Seite in einen String speichern.
Habe dazu die openurl-Methode des inet-controls verwendet.
Leider enthält der String mit dem Quellcode immer nur ca. 8100-8400 Zeichen und wird danach abgeschnitten.

Dim strQuellcode As String
strQuellcode = Inet1.OpenURL("http://www.testseite.de", icString)

Habe ich den String falsch deklariert, denn angeblich können doch viel mehr Zeichen in einem String abgelegt werden.

Wäre schön, wenn mir jemand helfen könnte.

Gruß Matze

 

[thekorn]

Quellcode

um den Quellcode einer internetseite aufzurufen hat das Webbrowsercontrol eine implementierte Funktion "outerHTML"
es geht also zum Beispiel so:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Quelltext As String

Quelltext = WebBrowser1.Document.documentElement.outerHTML
Debug.Print Quelltext

End Sub

gruß
thekorn

 

[Hamadi]

Vielen Dank, das Einlesen der Datei in den string hat funktioniert.
Allerdings hab ich jetzt ein Problem, diesen string, der 40.000 Zeichen lang sein kann in einer simplen anderen Textdatei wieder abzuspeichern.

Open strDateiname For Output As intFile
Print #intFile, strQuellcode

Muss ich den string in kürzere Stücke teilen?

Was für Möglichkeiten gibt es noch?

 

[Hamadi]

Was ich vergessen hab - die Zieldatei ist leer, wenn ich es auf diese Methode mache, ist der Sting zu lang?