VB6: Daten aus String filtern

Dieses Thema VB6: Daten aus String filtern im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von SevenTy6, 1. Okt. 2004.

Thema: VB6: Daten aus String filtern Ich bräuchte hilfe bitte um hilfe. Ich lese einen String einer Text aus z.B.:...

  1. Ich bräuchte hilfe bitte um hilfe.

    Ich lese einen String einer Text aus z.B.:

    http://www.blabla.de/bla.php?u=[color=Red]1234567890[/color]&ap

    Ich brauche nache dem gleichzeichen die ersten 10 zahlen (1234567890), der rest muss weg bleiben.

    Mein code lautet so:

    In API (Modul)
    Code:
    Public Function xMid(ByVal sInput As String, _
      ByVal sDelim As String, _
      ByVal nDelimCount As Long) As String
      
      Dim i As Long
      Dim s As Long
    
      s = 0
      For i = 1 To nDelimCount
        s = InStr(s + 1, sInput, sDelim)
      Next i
      
      If s > 0 Then
        xMid = Mid$(sInput, s + 1)
      End If
    End Function
    und in Form:

    Code:
    Dim sText As String
    sText = Combo1.Text
    id.Caption = xMid(sText, =, 1)
    
    ich bitte um hilfe, komme da garnet mehr weiter :'(
     
  2. mit der Linkbereich gabs probleme mit dem farben :)

    nochmal
    z.B.:

    http://www.blabla.de/bla.php?u=1234567890&p51

    &p51 darf nicht dabei sein.
     
  3. Ich hab das jetz so verstanden: Hinter dem Gleichheitszeichen die nächsten 10 Zeichen.

    In dem Fall sollte es so gehen:
    Code:
    strtemp=Combo1.Text
    iPos = InStr(1, strTemp, =)
    strTemp = Mid(strTemp, iPos + 1, 10)
    Für neue Probleme kannst Du im übrigen ruhig ein neuen Thread erstellen
     
  4. Hi

    Ich hab das Thema mal geteilt und hierfür einen neuen Thread aufgemacht.

    Gruß, Michael
     
Die Seite wird geladen...

VB6: Daten aus String filtern - Ähnliche Themen

Forum Datum
php code aus string (datenbank) ausführen Webentwicklung, Hosting & Programmierung 23. Aug. 2008
Datenrettung /sicherung Windows 10 Forum 22. Sep. 2016
Windows upgrade und datenverlust!? Windows 10 Forum 5. Juli 2016
Import Datensatz inkl = und - Zeichen in Excel/Libre CALC Software: Empfehlungen, Gesuche & Problemlösungen 20. Mai 2016
Datenrettung nach CRC-Fehler Datenwiederherstellung 18. Mai 2016