tegn efter ord i streng

Sådan her;


str = "bla bla bla bla bla aaa-dsd bla bla"

if instr(1, str, "aaa") > 0 then
  'aaa er i strengen

enf if

Du kan se mere omkring instr her:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctinstr.asp

Så skal du lave lidt kode som finder aaa- sådan her:

str = "bla bla bla bla bla aaa-dsd bla bla"
index = instr(1,str,"aaa-")
if index > 0 then
  slut = inStr(index,str," ")
  if slut > 0 then
    ord = Mid(str, index + 4, slut-(index+4))
  else
    ord = Mid(str, index + 4)
  end if
end if

Response.write ord

det var ikke helt det jeg mente eagle... så langt havde jeg selv kommet.

Fx

if instr(1, str, "aaa") > 0 then
'tjek om der står et "-" efter aaa
  ' hvis der står et "-" så find ud af hvad der står efter "-"
  else
    noget
  end if
else
  noget
end if
end if

då du vil havde alt hvad der kommer efter aaa hvis det efterfølgende tegn er et - eller vil du kun havde det næste ord?

foreksempel med en streng der hedder "jkllkjhklh aaa- sdfjkh skjhklsd"

vil du så havde "sdfjkh skjhklsd" eller "sdfjkh" ud

Hvis det efterfølgende tegn er et -, så vil jeg have det ord efter det, fx:

"fndasfn lfa aaa-dette fdas f"

Her vil jeg så have "dette" ud.

Ok så det sådan her:


str = "bla bla bla bla bla aaa-dsd bla bla"
index = instr(1,str,"aaa")
if index > 0 then
  if Mid(str,index+3,1) = "-" then
    slut = inStr(index,str," ")
    if slut > 0 then
      ord = Mid(str, index + 4, slut-(index+4))
    else
      ord = Mid(str, index + 4)
    end if
  else
    'Ikke - efter aaa i strengen
  end if
else
'Ikke aaa i stengen
end if

Response.write ord

Perfekt Eagle - endnu en gang :o)