jag vill ha en funktion som söker upp & tecknet och sen lägger resultatet så här

Denna strängen
Exem&pel

ska bli
Exem<U>p</u>el
<Code>

<button type=button ACCESSKEY=P name=test>Exem<U>p</u>el</button>
</code>

vill att Accesskey= den bokstaven som står efter &
vill att namnet på knappen ska bli som ovan

Någon som kan ge mig ett kodförslag

Här är mitt, funkar men kan man göra det i en function istället
<code>
Public Function getPrev(text)
dim ett, Ipos, prev, Accesskey, after,t
ett = text
iPos = instrrev(ett,"&")
t = left(ett,iPos-1)
getPrev = t
end function

Public Function getAccessKey(text)
dim ett, iPos, Accesskey
ett = text
iPos = instrrev(ett,"&")
AccessKey = Mid(ett, iPos+1,1)
getAccessKey = AccessKey
end function

Public Function getAfter(text)
dim ett, Ipos, prev, Accesskey, after,t
ett = text
iPos = instrrev(ett,"&")
ett = right(ett,ipos-2)
getAfter = ett
end function

' kallar på den så här
<%=getprev("And&ers")%><u><%=getAccesskey("And&ers")%></u><%=getAfter("And&ers")%>
</code>


SVAR:
<Code>
Public Function getUnderline(text)
dim Ipos, prev, Accesskey, after

iPos = instrrev(text,"&") 'Ander&s
AccessKey = Mid(text, iPos+1,1)

if iPos = 0 then
prev = ""
else
prev = left(text,iPos-1)
end if

if iPos = len(text) then 'Ander&s = 7
after = ""
else
after = right(text,len(text)-Ipos-1)
end if
if iPos = 0 then
Response.Write(Prev & Accesskey & after)
else
Response.Write(Prev & "<u>" & Accesskey & "</u>" & after)
end if


end function

Public Function getAccessKey(text)
dim iPos, Accesskey
iPos = instrrev(text,"&")
AccessKey = Mid(text, iPos+1,1)

Response.Write(AccessKey)
end function
</code>

Du får använda dig av en RegExp, men som endast säker upp en bokstav, tecken efter &, är kass på RegExp patterns, så jag är knappast rätt man att ge dig rätt lösning men typ:
<code>
<%
Dim RegExp
Set RegExp = New RegExp

With RegExp
.Global = True
.IgnoreCase = True
.Pattern = "&(.*)" ' <- Inte rätt pattern..
End With

sText = RegExp.Replace(sText,"<u>$1</u>")
%>
</code>

Fråga Henkoz... ;)