Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten













Autor
Nachricht
Analegrande
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 69






[/code]

Ich möchte gerne das Datum finden und dieses ausgeben. Wäre das in einer Zeile, hätte ich es evtl. noch gepackt. Aber da in der Zeile in der sich das Datum befindet das "
Ich hoffe ihr könnt mir helfen. Hab schon Stunden gesucht und probiert ^^

Gruss Anale
_________________
String im Quelltext suchen
Verfasst am: 19.08.2008, 05:30

Hallo zusammen,

ich glaube als ihr den Threadtitel gelesen habt, habt ihr euch an den Kopf gepackt:o

Aber ich denke das hier ist etwas komplizierter...

Hier ein Stück aus dem Quelltext:

Visual Basic: [code]

Account erstellt:
30 Januar 08 19:26 CET
 
KleinesVoodoo
Coder
Coder

Anmeldedatum: 17.04.2008
Beiträge: 78


Verfasst am: 19.08.2008, 08:35

Visual Basic: [code]Function GetDate(ByVal szQuell As String) As String
Dim lPos(3) As Integer, szDate As String

lPos(0) = szQuell.IndexOf("Account erstellt:", 1)
lPos(1) = szQuell.IndexOf("<", lPos(0))
lPos(2) = szQuell.IndexOf(">", lPos(1))
lPos(3) = szQuell.IndexOf(vbCrLf, lPos(2))

szDate = Mid(szQuell, lPos(2) + 2, lPos(3) - lPos(2) - 1)
GetDate = Trim(szDate)
End Function[/code]
Dein Wudu
 
Analegrande
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 69


Verfasst am: 19.08.2008, 09:01

Danke schonmal dafür Smile
aber..

ich bekomme bei folgender Zeile einen Fehler :

lPos(1) = Qtext.IndexOf("<", lPos(0))

Der Index lag außerhalb des Bereichs. Er muss nicht negativ und kleiner als die Auflistung sein. Parametername: startIndex

Wie kann ich das beheben ?
 
KleinesVoodoo
Coder
Coder

Anmeldedatum: 17.04.2008
Beiträge: 78


Verfasst am: 19.08.2008, 09:07

Indem du den kompletten Quelltext postest, den du durchsuchen willst.
 
Analegrande
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 69




Verfasst am: 19.08.2008, 09:20

Da ist der komplette Quelltext...

[highlight=vb script:hideLayer('countryMenu'); hideLayer('mouseTrap');">



























Accountverwaltung













































































ACCOUNT- UND KONTAKTINFORMATIONEN






















































Accountname: XxXxXxX Passwort ändern
Account-Typ:




World of Warcraft + The Burning Crusade





Accountstatus:



xXxXxXxXx








Kontaktadresse: Ändern  

XxXxX K*****

Exxxxf, NRW

5xxxx9

Deutschland

E-Mail-Adresse: Ändern  
n*****

Hinweis: Aus Sicherheitsgründen werden diese Daten nicht vollständig angezeigt.


Account erstellt:
30 Januar 08 19:26 CET

Letzter Login:
17 Juli 08 06:32 CEST


 











RECHNUNGSINFORMATIONEN





































Abonnement:

Kein aktives Abonnement





Spielzeit läuft ab: 18 Juli 08 02:16 CEST









Zahlungsüberblick














Datum: Betrag: Abrechnungsdetails: Status:








Ablaufdatum: 18 Juli 08 02:16 CEST Buchungsübersicht



Rechnungssupport

Kontaktieren Sie uns bei Fragen zur Abrechnung bitte per Telefon oder benutzen Sie unser Webformular.


 












KOSTENPFLICHTIGE DIENSTE











































Charakterumbenennung

Dank eines weiteren Wunders der gnomischen Ingenieurskunst ist es Ihnen jetzt möglich, den Namen Ihres Charakters zu ändern. Endlich können Sie diesen alten Namen, der Ihnen damals noch als gute Idee erschien, in etwas ändern, was Ihrem wahren Status gerecht wird.













Kostenpflichtiger Charaktertransfer

Verschieben Sie Ihren Charakter auf einen anderen Realm oder auf einen Ihrer anderen Accounts (Unterliegt gewissen Einschränkungen).























KOSTENLOSE DIENSTE





























Werbt einen Freund

Schickt einem Freund eine KOSTENLOSE 10-Tage-Testversion und erhaltet dafür 30 Spieltage GRATIS. Zusätzlich bekommt ihr kostenlose Stufenanstiege, Freund-zu-Freund-Beschwörungen, schnelleres Leveln mit dreifachen Erfahrungspunkten und ein exklusives In-Game-Reittier !














Rolle der Auferstehung

Laden Sie einen ehemaligen Spieler ein, die neuesten Inhalte von World of Warcraft 10 Tage lang gratis zu testen und erhalten Sie die Möglichkeit, 30 Tage GRATIS zu spielen!














E-Mail-Adresse ändern

Ändern Sie die in Ihrem Account registrierte E-Mail-Adresse.












Passwort ändern

Ändern Sie das Passwort Ihres Accounts.












Elterliche Freigabe

Dieser Dienst erlaubt es Eltern, die Spielzeiten ihrer Kinder zu überwachen, indem sie festlegen, wann diese spielen dürfen und wann nicht.












Europäische Sprachpakete

Wenn Sie World of Warcraft in einer anderen Sprache spielen wollen, können Sie das entsprechende Sprachpaket hier herunterladen.












Kostenloser Charaktertransfer

Dieser Dienst ist nur für Realms verfügbar, die für den kostenlosen Charaktertransfer freigeschaltet wurden. Bitte besuchen Sie das allgemeine Forum, um zu erfahren, welche Realms dafür gegenwärtig zur Verfügung stehen.












Russischer Account

Spielen Sie auf russischen Realms mit gänzlich russischem Support! Konvertieren Sie Ihren Account zu einem russischen Account, zahlen Sie Ihr Abonnement in Rubel und erhalten Sie einen kostenlosen Monat Spielzeit! Bitte beachten Sie, dass Sie nach einer Konvertierung Ihres Accounts nicht mehr auf nicht-russischen Realms spielen können.












Transfer auf russische Realms

Transferieren Sie Ihren Charakter auf einen russischen Realm mit gänzlich russischem Support. Dieser Dienst steht Ihnen kostenlos für begrenzte Zeit zur Verfügung!












The Burning Crusade herunterladen

Laden Sie die Spielsoftware für The Burning Crusade herunter















Blizzard Authenticator - Schlüsselverknüpfung

Dieses einfach zu verwendende Bedienelement bietet Spielern eine weitere Sicherheitsmaßnahme, mit Hilfe derer sie ihre Accounts noch besser schützen können. Für weitere Informationen und Anweisungen zur Einrichtung besuchen Sie bitte http://eu.blizzard.com/security-token/.














Auslosung für den Betatest von Wrath of the Lich King

Registriert euch jetzt für die Chance, am Betatest für Wrath of the Lich King teilzunehmen!












Account kündigen

Hier können Sie Ihr Abonnement online abbestellen. Bevor Sie dies tun, würden wir uns freuen, per Telefon von Ihnen zu hören. Unsere Mitarbeiter sind im Stande, viele auftretende Probleme zu lösen. Bitte rufen Sie uns an, unsere Telefonnummern finden Sie hier: http://www.wow-europe.com/de/support/


































Rechtliches |
Bestimmungen

©2008 Blizzard Entertainment. Alle Reche vorbehalten.





















Blizzard










[/code]  
sollniss
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 699


Verfasst am: 19.08.2008, 10:25

Visual Basic: [code]strDatum = Split(strQuelltext, "greyText" & chr(34) & ">")(9).Split(Chr(10))(0)[/code]

Müsste hinhauen, vielleicht hab ich mich verzählt. ^^
 
Analegrande
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 69


Verfasst am: 19.08.2008, 10:38

Vielen Dank Smile Nun klappts doch ^^

'Edit... ahhh ne... nun hab ich das Datum vom letzten Login und ich brauche das davor :/
 
sollniss
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 699


Verfasst am: 19.08.2008, 11:01

Nimm anstatt ne 9 eine 8.

Wie gesagt: verzählt. :/
_________________


 
Analegrande
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 69


Verfasst am: 19.08.2008, 11:24


Jetzt hab ichs hingekriegt Very Happy
Danke nochmal vielmals:)


Benutzt doch einfach den Danke - Button >.<
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: visual basic, quelltext, suchen, string

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wichtig: [Ebook] jetzt lerne ich Visual Basic 6 4741 02.06.2010, 12:55
Keine neuen Beiträge Wie kann ich mich bei euch anmelden?? 796 20.05.2002, 00:28
Keine neuen Beiträge Eine kleine Frage an euch.. 906 30.09.2007, 08:57
Keine neuen Beiträge Microsoft Visual Basic 1178 27.01.2007, 23:59
Keine neuen Beiträge Visual Basic.. Version?? 1137 22.01.2007, 17:23
 

RSSGrillen V
RSSQianmen - Zhengyangmen und die Qianmen StraÃ?e
RSSDer Wahnsinn ist vorüber!
RSSBereichert Euch! - 20 Jahre Kapitalismus in China
dealrabbit Gutscheine Sprüche


[ Time: 0.3792s ][ Queries: 115 (0.0298s) ][ GZIP on - Debug on ]