27. januar 2012 - 07:25Der er
19 kommentarer og 1 løsning
Replace mellemrum
Hej eksperter
Det giver normalt ingen problemer at erstatte et mellemrum med ingenting, altså med:
Adresse = replace(Adresse, " ", "")
I dette tilfælde lykkedes det bare ikke. Jeg har hentet kildekoden med:
Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.Url = Request.form("Url") StrResult = HttpObj.GetURL
f.eks. kan en adresse være: " husvej 45, 9999 husby "
Altså luft mellem apostrof og husvej 45, og ligeledes til sidst. Hvis jeg bruger Adresse = replace(Adresse, " ", ""), fjernes blot mellemrum mellem husvej og 45 + 9999 og husby.
Hvordan får jeg luften foran og bagved adressen væk.
du bliver nødt til at se på data i en hex-editor, så du kan sehvilke tegn, der er før og efter. hvis du nu udskriver #<% Response.Write Trim(Adresse) %># så vil du få fx # husvej 45, 9999 husby # brug nu vis-kode, og gem teksten - åben den så i en hex-editor og se hvilke tegn, der er fra # til # Alm mellemrum er '20' på hex. brug fx http://www.chmaas.handshake.de/delphi/freeware/xvi32/xvi32.htm#download download ligger i linjen Download XVI32 release 2.53 here (558 KB ZIP archive).
Function MyTrim(strInput) Dim arrAllowedChars strAllowedChars = "abc...xyzABC...XYZ012...789"
strReturn = strInput
For intIndex = Len(strReturn) To 1 Step -1 If InStr(strAllowedChars, Mid(strReturn, intIndex, 1)) = 0 Then strReturn = Replace(strReturn, Mid(strReturn, intIndex, 1), "") End If Next
Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.Url = Request.form("Url") StrResult = HttpObj.GetURL
%>
<%
Navn = Split(StrResult, "productTitle") (1) Navn = Split(Navn, ">") (1) Navn = Split(Navn, "<") (0) Navn = replace(Navn, "Æ", "Æ") Navn = replace(Navn, "æ", "æ") Navn = replace(Navn, "Ø", "Ø") Navn = replace(Navn, "ø", "ø") Navn = replace(Navn, "Ã¥", "å")
Jeg prøver og prøver, men intet hjælper - må gøre det forkert ;-)
Kan jeg få dig til at skrive koden helt, altså kombinere indlæg 10 og 11? I den ene er værdien StrResult, og strInput i den anden. Det kan også være, at jeg er helt galt på den.
jeg har også lagt æøå-konverteringen i en funktion - bemærk, at der mangler en linje for Å:
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.Url = Request.form("Url") StrResult = HttpObj.GetURL
%>
<% Function MyTrim(strInput) Dim arrAllowedChars strAllowedChars = "abcdefghijklmnopqrstuvwxyzæøåABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ0123456789.,-"
strReturn = strInput
For intIndex = Len(strReturn) To 1 Step -1 If InStr(strAllowedChars, Mid(strReturn, intIndex, 1)) = 0 Then strReturn = Replace(strReturn, Mid(strReturn, intIndex, 1), "") End If Next
MyTrim = strReturn End Function
Function MyReplace(strInput) strReturn = strInput strReturn = replace(strReturn, "Æ", "Æ") strReturn = replace(strReturn, "æ", "æ") strReturn = replace(strReturn, "Ø", "Ø") strReturn = replace(strReturn, "ø", "ø") strReturn = replace(strReturn, "Ã¥", "å") ' der mangler en linje for Å MyReplace = strReturn End Function
Navn = Split(StrResult, "productTitle") (1) Navn = Split(Navn, ">") (1) Navn = Split(Navn, "<") (0) Navn = MyReplace(Navn)
claes57, da du ikke havde smidt et svar, regnede jeg med, at du mente, at mireigi skulle have pointene. Jeg giver dog stadig gerne dig de 30 point - så siger du bare til.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.