/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tal
Fra : Danlamp Teknik


Dato : 27-08-01 11:23

Hejsa
Jeg har en text box med eks. følgende tal "570998524".
Jeg skal så have talet på position 2 * med talet fra position 4 som så skal
* med talet fra position 6.

Hvordan får jeg de forskellige positioner trukket ud af talet, så jeg kan
komme til at * dem.

Henrik



 
 
Ove Hansen (27-08-2001)
Kommentar
Fra : Ove Hansen


Dato : 27-08-01 11:55


"Danlamp Teknik" <danlamp@danlamp.dk> wrote in message
news:9md7n5$li0$1@sunsite.dk...
> Hejsa
> Jeg har en text box med eks. følgende tal "570998524".
> Jeg skal så have talet på position 2 * med talet fra position 4
som så skal
> * med talet fra position 6.
>
> Hvordan får jeg de forskellige positioner trukket ud af talet, så
jeg kan
> komme til at * dem.

Resultat = val(Mid$("570998524,2,1)) * val(Mid$("570998524",4,1)) *
val(mid$("570998524",6,1))

/Ove



Jens Vestergaard (27-08-2001)
Kommentar
Fra : Jens Vestergaard


Dato : 27-08-01 12:21

"Danlamp Teknik" <danlamp@danlamp.dk> skrev i en meddelelse
news:9md7n5$li0$1@sunsite.dk...
> Hejsa
> Jeg har en text box med eks. følgende tal "570998524".
> Jeg skal så have talet på position 2 * med talet fra position 4 som så
skal
> * med talet fra position 6.
>
> Hvordan får jeg de forskellige positioner trukket ud af talet, så jeg kan
> komme til at * dem.
>
> Henrik

Nedenstående er måske lidt rigeligt skåret ud i pap for forståelighedens
skyld, men så kan man jo selv skrive det sammen med en array i stedet, ændre
datatype m.v. - hvis ønsket.

dim tal1 as long
dim tal2 as long
dim tal3 as long
dim res as long

text1 = "570998524"

tal1 = mid(text1,2,1)
tal2 = mid(text1,4,1)
tal3 = mid(text1,6,1)

res = (tal1 * tal2) * tal3

--
mvh
Jens Vestergaard
www.railsoft.dk




Danlamp Teknik (27-08-2001)
Kommentar
Fra : Danlamp Teknik


Dato : 27-08-01 12:20

Jeg "glemte" lige at skrive, at position 1 er længst til højere.

Henrik

"Jens Vestergaard" <j@railsoft.dk> skrev i en meddelelse
news:3b8a2cce$0$33116$edfadb0f@dspool01.news.tele.dk...
> "Danlamp Teknik" <danlamp@danlamp.dk> skrev i en meddelelse
> news:9md7n5$li0$1@sunsite.dk...
> > Hejsa
> > Jeg har en text box med eks. følgende tal "570998524".
> > Jeg skal så have talet på position 2 * med talet fra position 4 som så
> skal
> > * med talet fra position 6.
> >
> > Hvordan får jeg de forskellige positioner trukket ud af talet, så jeg
kan
> > komme til at * dem.
> >
> > Henrik
>
> Nedenstående er måske lidt rigeligt skåret ud i pap for forståelighedens
> skyld, men så kan man jo selv skrive det sammen med en array i stedet,
ændre
> datatype m.v. - hvis ønsket.
>
> dim tal1 as long
> dim tal2 as long
> dim tal3 as long
> dim res as long
>
> text1 = "570998524"
>
> tal1 = mid(text1,2,1)
> tal2 = mid(text1,4,1)
> tal3 = mid(text1,6,1)
>
> res = (tal1 * tal2) * tal3
>
> --
> mvh
> Jens Vestergaard
> www.railsoft.dk
>
>
>



Bjarke Walling Peter~ (27-08-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 27-08-01 16:49

Danlamp Teknik skrev:
> Jeg "glemte" lige at skrive, at position 1 er længst til højere.
>
> Henrik

Okay da. Hvis du ikke selv kan tilrette de andres kode til at udtage tallene
fra højre, kan du bruge min variant...


Dim res As Integer
Dim i As Integer
Dim txt As String
txt = Text1.Text
If Len(txt)<6 Then ' Check om for lille
MsgBox "Taller er for lille!" ' Fejlbesked
Else
res = 1 ' Skal sættes til 1, fordi at 0 gange et tal giver 0!!
For i = 2 To 6 Step 2 ' Løber igennem 2, 4 og 6
res = res * CInt(Mid$(txt, Len(txt) - i + 1, 1))
Next i
End If

.... kan også forkortes lidt:

Dim res As Integer
Dim i As Integer
res = 1
For i = 2 To 6 Step 2
res = res * CInt(Mid$(Text1.Text, Len(Text1.Text) - i + 1, 1))
Next i

- Bjarke Walling Petersen



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408941
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste