Undersøge tekststreng

Hej.

Hvis det altid er 4 tegn der skal væk (.bat) så:

dinstreng = left(dinstreng, len(dinstreng)-4)
ellers må du teste på 'punktum' f.eks.


a = instr(dinstreng,"-")
venstre = mid(dinstreng, 1, a-1)
højre = mid(dinstreng, a + 1,)

M.v.h.  Jørn

streng = "Else-Marie.bat"
If InStr(streng, "-") Then
    mitarray = Split(streng, "-"=
    nystreng1 = mitarray(0)
    nystreng2 = Left(mitarray(1), len(mitarray(1))-4)
End If

hov:
    mitarray = Split(streng, "-"=
skal være:
    mitarray = Split(streng, "-")

Dim Kilde as String
Dim a,b as string
Dim c as long
Dim d as long

Kilde = "Else - Marie.bat"
c = Instr(Kilde,"-")
if c<>0 then
  a = trim(left(Kilde,c-2))
  d = InStr(c,Kilde,".")
  if d<>0 then
    b = trim(mid(Kilde,c+1,d-1))
  endif
endif

a indeholder nu "Else"
b indeholder nu "Marie

Hovsa.

højre = mid(dinstreng, a + 1)  der var et komma for meget.

Æv bæv !
Min rutine er bare ligeglad med, hvor langt henne streg og punktum er i strengen. Og desuden tager i andres rutine mellemrumstegnene med !!

Og hvis jeg kunne, ville jeg lave det med en meget flottere skrifttype ;-)

hells: forklar lige nærmere, mitarray???

har lige opdaget at dette er visual basic og ikke asp - vbscript, men mitarray er filnavnet delt op i et array. den ene del af arrayet indeholder det, der er før bindestregen, og den anden del indeholder det, der kommer efter.

Nu har jeg selv lavet følgende:

Dim strArtist As String
Dim strTxt As String
Dim intX As Integer
Dim intCount As Integer

File1.ListIndex = 0
intCount = 0

Do While Not intX = 100
    strTxt = File1.FileName

    strArtist = Left(strTxt, intCount + 1)
    strArtist = Right(strArtist, 1)
    intCount = intCount + 1

    If strArtist = "-" Then
        intX = 100
        strArtist = Left(strTxt, intCount - 2)
        List1.AddItem strArtist
    End If
Loop


Nogen der så ved hvordan man finder ud af hvor lang en tekststreng er?

a = len(streng)

- Mikker

Lige et spørgsmål:

HVORFOR AFVISER DU MIT SVAR ?!?!?!?!

Hej telep.

Tak for point.  Med en Ghz-CPU betyder det næppe noget, men det er lidt omstændeligt at læse 1 tegn ad gangen, synes jeg.

Du bør nok svare moses.

M.v.h.  Jørn

Til moses:

Fordi joern's svar var det jeg brugte og desuden er det også det bedste svar!

Til joern:

Selv tak. Jeg bruger din kode!