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?

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)

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.

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