Mid sats

[Admini]

Hej

Om jag vill kolla i en textsträng efter en binär siffra, kan jag inte skriva så här?

For i = 1 To intNummer
If Mid(strKomp, 1, 1)=i Then
Response.Write "strKomp= "&Mid(strKomp, 1, 1)=&"<br>"
End If

Det verkar som att Mid funkar bara med textsträng och inte Integer

[inlägget ändrat 2003-01-14 17:37:39 av Admini]

[Nollis]

Tjena!

 

Jag är inte riktigt med på noterna. Vad innehåller intNummer och vad innehåller strKomp?

 

/ Johan

 

[Admini]

intNummer = 9

strKomp = 1ts eller 2tf eller 3ks

 

alltså en siffra i början och 2 bokstäver efter

 

OK, det här är alltså en del av en större kod.

Men mitt problem är att jag vill få reda på siffran i början mha *i*

[inlägget ändrat 2003-01-14 17:46:26 av Admini]

[Nollis]

Tjena!

 

Jag kanske är trött bara, men jag fattar inte riktigt vad det är du vill åstadkomma...

 

Du vill kolla i en textsträng (ex. "2tf") efter en binär siffra... Vad menar du att du skulle få för resultat i detta fall?

 

/Johan

 

[Admini]

Nej det är jag som är trött,

Men det kan gå InStr istället.

ska testa det nu...

If InStr(1, Element, i, 0)= i Then

 

[Admini]

Ja det funkar bra med InStr

 

[Nollis]

Tjena!

 

OK. Det låter bra... Du har inte lust att publicera lösningen i sin helhet? (För jag förstår fortfarande inte vad det var som skulle hända...

 

/ Johan

 

[Admini]

Jo, bara du lovar att inte skratta!

 

 

[Nollis]

Tjena!

 

Världsapromis...

 

/ J

 

[Admini]

Ok, här kommer min hemsnickeri:

For i = 1 To intNummer	
rs.AddNew
rs("ID_Q") =  sIdQ

For Each Element In Request.Form 'Ta emot alla elemet som är 3 tecken långa
If Len(Element) <=3 Then
If InStr(1, Element, i, 0)= 1 Then
If Right(Element, 1)= "f" Then 'Om sista tecknet = f
rs("Forklaring_fa") =  Request.Form(Element)
ElseIf Right(Element, 1)= "s" Then ' Om sista tecknet = s 
rs("Forklaring_sv") =  Request.Form(Element)
End If
End If
rs("Alt") =  Element
End If
Next
rs.Update
Next

 

[Nollis]

Tjena!

 

OK... Det var inget att skratta åt tycker jag.. (Men jag undrar fortfarande vad det var för binär siffra du ville hitta........ (Det är OK, jag är som sagt trött, och hjärnan tänder inte på alla cylindrarna... )

 

/ Johan

 

[Admini]

OK... Det var inget att skratta åt tycker jag

Nej det var det verkligen inte

 

Men ja är för trött för att förklara det ikväll...