læse string indtil mellemrum

Ja, du skal bruge Split-funktionen. Hvilken version vb har du?

Det er vist sådan her:
strNavn = Split("Lars Lund", " ")

Eller du kan nøjes med

strNavn = Split("Lars Lund")

da mellemrum er default.

-thomas- : Split returnerer et array med både "Lars" og "Lund" i.

En anden måde der specifikt gør præcis havd dont ønsker er som følger:

Læs din string fra højre, karakter for karakter. Når du møder et mellemrum gemmes dettes position. Herefter napper du sidste del af strengen fra mellemrummet og smider over i en variabel...

Kode kommer om 2 sek...

Uddybning:
dim strNavn() as string
strNavn = Split("Lars Lund")
srtNavn(1) er "Lund"

martin_moth> Ja, det ved jeg udmærket :)
Men det er da også efter min mening den nemmeste måde at løse det på...

Ja, men følgende er mere rigtig :o)

For i = 0 To Len(Navn) - 1
  If Mid(Navn, Len(Navn) - i, 1) = " " Then Exit For
Next i

If i = Len(Navn) Then
  MsgBox "Der er ingen mellemrum der skiller karakterer"
Else
  j = Len(Navn) - i
  Navn2 = Right(Navn, Len(Navn) - i + 1)
  MsgBox "Højre delstreng er : '" & Right(Navn, Len(Navn) - i + 1) & "'"
End If

Hov - en lille fejl, der er rettet nu:

For i = 0 To Len(Navn) - 1
  If Mid(Navn, Len(Navn) - i, 1) = " " Then Exit For
Next i

If i = Len(Navn) Then
  MsgBox "Der er ingen mellemrum der skiller karakterer"
Else
  MsgBox "Højre delstreng er : '" & Right(Navn, Len(Navn) - i + 1) & "'"
End If

I ovenstående er 'i' en tæller, fx. en Long, og 'Navn' er naturligvis en String

Man kan jo gå over åen efter vand...
for-løkken gør det samme som InStr

Næ...

Ja, og jeg har kun VB5.0 som slet ikke har Split-funktionen :-(, så der kommer ingen argumenter fra min side...

det virker fint. tak for hjælpen.

hov havde ikke opdateret billedet, så jeg så ikke alle de andre svar. Tak for indsatsen.

Øhh - nu fik jeg ikke et eneste point, men jeg fastholder atltså at min løsning er mere korrekt.

1. Split-løsningen tager ikke højde for at der kan være nul eller flere end et mellemrum (det kunne den nu nemt omskrives til at gøre) - det gør min løsning.

2. Har man en string med mange mange mange tegn i "fornavnet" og et kort "efternavn", opretter man med split et array der indeholder alle de mange bogstaver man ikke skal bruge til noget. Det gør min løsning ikke.

Men det er vel smag og behag...

Martin_moth..

Jeg prøvede lige det her du har lavet.. MEN den tjekker jo fra venstre mod højre.. :(

Jeg er igang med at lave et program hvor jeg skal tjekke en tekstreng igennem for "\"
fra højre mod venstre og dele ved første "\" da jeg kun skal bruge filnavnet.

EX.:

"C:\Programmer\Lavasoft\Ad-aware 6\Ad-aware.exe"

i den streng skal jeg kun have trukket "Ad-aware.exe" ud...

Hvis du ved det opretter jeg et spørgsmål så du kan få points for det..

Håber du kan svare hurtigt da jeg står og mangler det :D Hehe

Hej pytman,

det kan du f.eks. gøre sådan her:

Dim arrTest, strResultat
arrTest = Split("C:\Programmer\Lavasoft\Ad-aware 6\Ad-aware.exe", "\")
strResultat = arrTest(UBound(arrTest))

Skal jeg oprette et spørgsmål ???
hvis du altså vil have points?

pytman: Du kan da bare læse fra den anden side, hvis du ønsker det...

points er ligemeget...