Avatar billede vippen1 Nybegynder
20. marts 2001 - 23:23 Der er 1 kommentar og
2 løsninger

Splitte/opdele sætning

Hejsa

Jeg har følgende linie:

Send hej med dig

Hvordan får jeg VB6 til at dele det op i følgende 2 strenge:

Send
hej med dig

Altså deler ved det første mellemrum.. :)

Avatar billede medjeti Nybegynder
21. marts 2001 - 01:32 #1
myArray = Split(myString, \" \")
\'Deler myString ved hvert mellemrum og gemmer hvert ord i myArray

For i = 1 to UBound(myArray)
  myString2 = myString2 & myArray(i)
  \'Looper igennem alle ord i myArray og tilføjer dem til myString2 
If i < UBound(myArray) Then myString2 = myString2 & \" \"
  \'Tilføjer et mellemrum hvis der kommer flere ord
Next

Skulle virke (det kan muligvis gøres smartere)...
Avatar billede netsrac Praktikant
21. marts 2001 - 07:35 #2
myArray = Split(myString, \" \")
Streng1 = myArray(0)
Streng2 = Mid(myString, (len(Stregn1)))
Avatar billede medjeti Nybegynder
21. marts 2001 - 13:02 #3
Selvfølgelig... :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester