Just nu i M3-nätverket
Jump to content

Mid sats


Admini

Recommended Posts

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]

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...