vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: vb5 Stringproblem auseinandernehmen ? 
Autor: vbtricks
Datum: 15.11.06 19:47
Salut,

ich hoffe mal, dass du dieses Format vorgegeben bekommen hast, ansonsten hättest du das um einiges geschickter lösen können. Aber sei's drum: 
Dim strTemp As String, strArray As String()
Dim i As Integer, intPos As Integer
strTemp = Replace(MeinText, vbNewLine, "")
strArray = Split(strTemp, "(")
For i = 0 To Ubound(strArray)
  intPos = Instr(1, strArray(i), ")")
  Select Case Mid(strArray(i), 1, intPos - 1)
  Case "l1"
    List1.AddItem Mid(strArray(i), intPos + 1)
  Case "l2"
    List2.AddItem Mid(strArray(i), intPos + 1)
  ' ...
  End Select
Next
Replace gibt es in VB5 nicht, im Web stehen aber unzählige Funktionen, die die gleiche Funktionalität bieten.


Stefan

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
vb5 Stringproblem auseinandernehmen ?869xverbatim15.11.06 12:08
Re: vb5 Stringproblem auseinandernehmen ?531vbtricks15.11.06 19:47
Re: vb5 Stringproblem auseinandernehmen ?529xverbatim15.11.06 20:22

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel