Just nu i M3-nätverket
Jump to content

Separator i Visual Basic


Baracuda

Recommended Posts

Hej!

 

Om jag har en textbox som det står följande i:

 

"Hej*På*Er*Alla*Glada"

 

och jag vill få ut dom i en listbox på följande sätt:

 

Hej

Er

Alla

Glada

 

Hur löser man det på ett lätt sätt ?

Link to comment
Share on other sites

Hej,

Det beror lite på, men mitt förslag är att du kollar in funktionerna Instr, Len, och Left.

 

Du kan via dessa kolla om tecknet * finns i din sträng, kolla hur lång strängen är, och dela upp den efter hand. Har inte tid att skriva det år dig men det borde inte vara så svårt.

 

MVH //

H&D

www.passiveminds.com

 

Link to comment
Share on other sites

Jag skulle nog gjort nåt sånt här;

   Dim str As String
   str = "Hej*På*Er*Alla*Glada"

   Dim vOrd() As String
   Dim i As Integer
   vOrd = Split(str, "*")

   For i = 0 To UBound(vOrd)
       List1.AddItem vOrd(i), i
   Next i

 

//Telleluy

[inlägget ändrat 2002-12-06 13:25:59 av Telleluy]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...