---
title: "Plocka ut högsta nummeret"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/86330-plocka-ut-högsta-nummeret"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "saw"
published: "2003-09-18T10:19:14.000Z"
updated: "2003-09-19T07:50:32.000Z"
replies: 4
views: 235
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/86330-plocka-ut-högsta-nummeret"
---

# Plocka ut högsta nummeret

## #1 — saw, 2003-09-18T10:19Z

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
\[REDIGERAT\]
Jag lyckades så här:

```
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
```

Kanske inte snyggast kodning, men det fungerar.

Permalänk: https://www.webforum.nu/p/86330

## #2 — Fredde Mannen, 2003-09-18T10:26Z

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

Permalänk: https://www.webforum.nu/p/1161718

## #3 — saw, 2003-09-18T12:03Z

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

Permalänk: https://www.webforum.nu/p/1161817

## #4 — Nexus86, 2003-09-18T12:57Z

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)
```

Permalänk: https://www.webforum.nu/p/1161852

## #5 — saw, 2003-09-19T07:50Z

Tackar

Permalänk: https://www.webforum.nu/p/1162472

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/86330-plocka-ut-högsta-nummeret