Zum Inhalt springen

NNE

Mitglieder
  • Gesamte Inhalte

    3
  • Benutzer seit

  • Letzter Besuch

  1. Hallo, Diese Methode lädt die angegebene Seite (sUrl) und speichert den HTML-Text auf die Festplatte mit Namen "provider_page.txt" Nun kannst du die Datei ganz normal untersuchen mit den String-Funktionen wie GetLength() Find() Mid() etc.... Viel Spaß & Ciao! int CCallStockValue::ConnectAndReadPage(CString sUrl, CString &sPageText) { CInternetSession netSession; CString sMessage; CStdioFile* pFile; CFile OutFile; int iStatus = -1; int iBytes; // Count of readed bytes char sBuffer[1024]; // Buffer CCallStockValue c; // GetApplicationDir() // Open the html site if (sUrl == "") { sMessage = sMessage + "URL is missing! \n"; AfxMessageBox(sMessage, MB_ICONINFORMATION); } else { pFile = netSession.OpenURL(sUrl); if (pFile == NULL) { // Connection is incorrect sMessage = sMessage + "\nConnection the data-provider\n\n" + sUrl + "\n\n" + "was failed!\n\n"; AfxMessageBox(sMessage, MB_ICONSTOP); } else { // Open/create local file on hdd at application directory // to store page OutFile.Open(c.GetApplicationDir() + "provider_page.txt", CFile::modeCreate | CFile::modeWrite); // Connection is ok, then read html and write to hdd while ((iBytes = pFile->Read(sBuffer, sizeof(sBuffer))) > 0) { sPageText += sBuffer; OutFile.Write(sBuffer, iBytes); } // Close CStdioFile (pFile) delete pFile; // Close file (CFile) OutFile.Close(); // Close net session netSession.Close(); // Status is OK iStatus = 1; // } } return iStatus; }
  2. Hi Grabber, von Null auf 100? Vielleicht liegt da der Grund! Denn oft liegt in der Ungeduld der Stolperstein der Dinge. Laß es langsam und gründlich angehen - es zahlt sich aus, ein gründliches Studium der Grundlagen in Kauf zu nehmen. Außerdem lern nicht aus einem Buch (Bücherei)! Versuch mehrere Bücher, die sich mit VC++Grundlagen befassen. Zusätzlich Kontakt halten mit Gleichgesinnten im Netz:-) Eine Stunde täglich nach der Arbeit ist nicht sehr viel! Es gibt nur wenige Personen, die es von Null auf 100 schaffen - nämlich Genies. Also, Kopf hoch und laß nichts anbrennen!!! Gruss, Huy
  3. Hi! So: ... Dim Temp2 as String Dim Länge as Integer ... Open "Datei" For Input As#1 While Not Eof(1) Line Input #1, Temp Temp2 = Temp2 & Temp 'Alle geladene Zeilen laden im Temp2 list1.AddItem Temp Wend Länge = len(Temp2)' Länge von Temp2 ermitteln msgbox "Länge der Datei: " & Länge 'Länge von Temp2 anzeigen ... Grüsse, NNE

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...