Plocka ut högsta nummeret

Re: Plocka ut högsta nummeret

saw skrev:

Detta är troligen ett väldigt enkelt problem, men jag kommer inte på hur jag smidigast skall knäcka det.

MultLang_1="Bli Medlem" 'en sträng
MultLang_2="Att bli medlem är väldigt enkelt, nu när Du har hittat hit till våran hemsida." 'en sträng
MultLang_3="Följ bara länken här nedanför" 'en sträng

Jag skall alltså ta ut det högsta nummeret ur MultiLang.
Jag funderar i splitt:
nr=SPLITT(txtSv.text,"=")

Sen går jag i väggen, för jag ville ha en splitt till:
snr=SPLIT(nr(0),"_"

snr(1) borde väll ta ut ett nummer eller är jag ute och seglar?
Hur får jag fram det högsta nummeret?
Går det att skriva detta smidigare?
:q

Få se vad menar du med högsta nummret, menar du sista "platsen" i arrayen?? el?

för i sådana fall

sString = "Hejsan du där i skogen!"
arrString = split(sString," ")
sInt = Ubound(arrString)

:q

Tack men jag kom på det:

Dim nr, sNr, i As Long
Dim StartPos As Long, SlutPos As Long
If Len(frMultiLanguage.txtSv.text) > 0 Then
    nr = Split(frMultiLanguage.txtSv.text, "MultLang")
    sNr = nr(UBound(nr))
    StartPos = InStr(1, sNr, "_") + 1
    SlutPos = InStr(1, sNr, "=")
    sNr = CInt(Mid$(sNr, StartPos, SlutPos - StartPos))
    
    frMultiLanguage.List2.Clear
        For i = 1 To sNr
            frMultiLanguage.List2.AddItem i
        Next
End If

Det är väll inte så bländande tjusigt skrivet, men det fungerar. :r

Smidigaste sättet:

  Dim lStartPos As Long, lSlutPos As Long, iNum As Integer
    lStartPos = InStrRev(frMultiLanguage.txtSv.Text, "MultLang_") + 9
    lSlutPos = InStrRev(frMultiLanguage.txtSv.Text, "=""")
    iNum = Mid(frMultiLanguage.txtSv.Text, lStartPos, lSlutPos - lStartPos)

Tackar