Trække ud og vise en del af teksten

Er der noget man kan søge på for at finde id nummeret??

Eksvisvis her kan man søge på ID-nr::

"En lang tekst fra dabasen dette ID-nr:23233 skal ikke vises"

Ja, det kan man godt (id nummeret kan dog variere i længde - altså cifre), og kan stå flere steder. Teksten kunne se ud som flg.:

"Her står en lille tekst #id12 noget mere"

eller

"#id12 her står en lille tekst"

Altså skal det mellem #id og det næste mellemrum fjernes fra teksten når den vises - dvs. #id(nummer)

Så man kan altså søge og finde #id, vil id kun være et tal?

Vil der altid være mellemrum efte det kan ikke være . eller ,

Hmm... good point - der KAN vel faktisk godt risikere at være et , eller .

Kan man evt. så tage fra "#id" til "slut på efterfølgende cifre" ?

Det kunne laves sådan her hvis du ikke skal gemme ID'et:


str = "En tekst #id123456 igen nummer tak #id123456."

index = inStr(1,str,"#id")
do while index > 0
  tempChar = mid(str,index+3,1)
  counter = 1
  'forsæt indtil næste karakter ikke er et tal
  do while isNumeric(tempChar)
    tempChar = mid(str,index+3+counter,1)
    counter = counter + 1
  loop
  'Så kan slut på tallet findes
  indexSlut = index+3+counter-1
  'Udskrivt tallet med (nummer)
  str = left(str,index+2) & "(nummer)" & mid(str,indexSlut)
  'Find næste #id
  index = inStr(indexSlut,str,"#id")
loop

Response.Write str

Jeg synes ikke at se nogen forskel - den skriver hele teksten - id-nummeret er der stadig - eks. #id24

står det #idxx eller idxxx ?

Skriver fint beskeden - men id-nummeret står der stadig. f.eks. "#id24"

du skal ændre denne linie:

str = "En tekst #id123456 igen nummer tak #id123456."

Til at sætte str = kolonnen fra dtabasen:
str = rs("kolonnenavn")

Tror jeg har gjort det:
Feltet hedder besked

index = inStr(1,besked,"#id")

og rettet det de andre steder også selvfølgelig

kan du ikke vise hele koden så?

altså bare dette vi snakker om :)

besked=RS("besked")

...

index = inStr(1,besked,"#id")
do while index > 0
  tempChar = mid(besked,index+3,1)
  counter = 1
  'forsæt indtil næste karakter ikke er et tal
  do while isNumeric(tempChar)
    tempChar = mid(besked,index+3+counter,1)
    counter = counter + 1
  loop
  'Så kan slut på tallet findes
  indexSlut = index+3+counter-1
  'Udskrivt tallet med (nummer)
  str = left(besked,index+2) & "(nummer)" & mid(besked,indexSlut)
  'Find næste #id
  index = inStr(indexSlut,besked,"#id")
loop

Response.Write besked

der manger lige et sted:

  'Udskrivt tallet med (nummer)
  str = left(besked,index+2) & "(nummer)" & mid(besked,indexSlut)

Rettes til:
  'Udskrivt tallet med (nummer)
  besked = left(besked,index+2) & "(nummer)" & mid(besked,indexSlut)

Ah ok - my bad. Men Nu fjerner den tallet - men lader stadig "#id" stå tilbage?! Det er måske mig der ikke fik forklaret godt nok - men altså #id skal også væk...

ok.. jeg forstod det som om det skulle blive men det er let at rette. Du ændre bare denne linie:
besked = left(besked,index+2) & "(nummer)" & mid(besked,indexSlut)

Til:
besked = left(besked,index-1) & "(nummer)" & mid(besked,indexSlut)

Fino - nu skriver den bare "nummer" - hvis jeg helt vil undlade at skrive noget så er det vel:

  besked = left(besked,index-1) & " " & mid(besked,indexSlut)

i stedet...

Ja det er rigtigt, men du behøver ikke nødvendigvis & " " det er nok bare med:

  besked = left(besked,index-1) & mid(besked,indexSlut)

Mange tak for hjælpen - "dobler" lige pointene...

Hovsa - lige et tillægsspørgsmål - hvis man nu ville vende den om - og det netop VAR tallet - altså f.eks. 24 i "#id24" man ville gemme - hvordan ville du så vende koden?

hvis du vil havde talle + #id så sådan her:

nummer = mid(besked,index-1,counter+3)

og det skal stå på linie før:
besked = left(besked,index+2) & "(nummer)" & mid(besked,indexSlut)

Ok - og hvis det KUN er selv tallet (cifrene)?

Hvis det kun er tallet så sådan her:

nummer = mid(str,index+3,counter-1)

aha - endnu en gang mange tak for hjælpen!