5 svar · 673 visningar · startad av magnusfeldth
Jag har en accessdatabas som jag hämtar information ur. Bland annat hämtas för en meny namn på den länk som hyperlänken skall gå till. Men sidan finns både på svenska och engelska, men jag vill inte behöva ha två fält i tabellen och skriva in nästan likalydande adresser för länkar. Länkarna ser ut i stil med text.asp?id=3 och texteng.asp?id=3. Så i fältet vill jag bara behöva skriva text.asp... Hur lägger jag till "eng" precis före punkten i adressen?? Förstås det vad jag menar?
Hilfe!
Jag är inte helt säker på att jag gillar tillvägagångssättet med olika sidor för olika språk, men here goes:
adress = "text.asp?id=3"
splitarray = split(adress, ".")
adressEng = splitarray(0) & "eng." & splitarray(1)
Har du fler punkter i adressen blir det lite klurigare.
funkar finfint, fast, om jag vill att den inte skall göra så när det är en e-postlänk då? alltså när @-tecknet finns med nånstans i länken...
Med hjälp av InStr kollar du ifall @ INTE finns med i adress:
If InStr(adress, "@") = 0 Then
...
End If
Om InStr(...) returnerar 0 finns det alltså inget @ i adress. Därmed kan du göra det @nders skrev!
testade din kod ledel, men då hämtade den om fält-uppgiften från fältet ovan???
Edit: fixade till if-koden, nu funkar det!
TACK både snabeln och ledel!
Bygger ihop det med @nders kod:
adress = "text.asp?id=3"
If InStr(adress, "@") = 0 Then
splitarray = split(adress, ".")
adressEng = splitarray(0) & "eng." & splitarray(1)
End If
Hur ser din kod ut?