VB6: Daten aus String filtern

SevenTy6 · 01.10.2004

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 :'(

SevenTy6 · 01.10.2004

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.

Fizbin · 01.10.2004

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

Michael · 02.10.2004

Hi

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

Gruß, Michael

VB6: Daten aus String filtern

SevenTy6

SevenTy6

Fizbin

Michael

VB6: Daten aus String filtern

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums