Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hat sich erledigt. Habe so gelöst...
Autor: Bob
Datum: 08.11.01 14:15
Falls intiresiert. Leerstelen z.B zwischen " & " und " amp;" ignorieren. Print #11, "NAME: " & XMLConvert(Variable) Public Function XMLConvert(ByVal sText _ As String) As String Dim iPos As Integer Dim i As Integer Const aCheck = "&" Const aReplace = "& amp;" i = 0 While i < Len(sText) i = i + 1 iPos = InStr(aCheck, Mid$(sText, i, 1)) If iPos > 0 Then sText = Left$(sText, i - 1) + _ Mid$(aReplace, (iPos - 1) * 2 + 1, 5) + _ Mid$(sText, i + 1) i = i + 1 End If Wend XMLConvert = sText Const bCheck = "<" Const bReplace = "& lt;" i = 0 While i < Len(sText) i = i + 1 iPos = InStr(bCheck, Mid$(sText, i, 1)) If iPos > 0 Then sText = Left$(sText, i - 1) + _ Mid$(bReplace, (iPos - 1) * 2 + 1, 4) + _ Mid$(sText, i + 1) i = i + 1 End If Wend XMLConvert = sText Const cCheck = ">" Const cReplace = "& gt;" i = 0 While i < Len(sText) i = i + 1 iPos = InStr(cCheck, Mid$(sText, i, 1)) If iPos > 0 Then sText = Left$(sText, i - 1) + _ Mid$(cReplace, (iPos - 1) * 2 + 1, 4) + _ Mid$(sText, i + 1) i = i + 1 End If Wend XMLConvert = sText 'Dim dCheck As String ' dCheck = Chr(34) Const dCheck = """" Const dReplace = "& quot;" i = 0 While i < Len(sText) i = i + 1 iPos = InStr(dCheck, Mid$(sText, i, 1)) If iPos > 0 Then sText = Left$(sText, i - 1) + _ Mid$(dReplace, (iPos - 1) * 2 + 1, 6) + _ Mid$(sText, i + 1) i = i + 1 End If Wend XMLConvert = sText End Function

Zeichen ersetzen???	48	Bob	08.11.01 10:52
Re: Zeichen ersetzen???	30	Bob	08.11.01 10:55
Replace-Funktion	287	Dieter	08.11.01 11:01
Re: Danke!!!	46	Bob	08.11.01 11:24
Re: noch eine Frage Dieter???	31	Bob	08.11.01 12:27
Nein...Jedes Zeichen eine eigener Aufruf	212	Dieter	08.11.01 12:29
Re: ?????????	45	Bob	08.11.01 12:43
Re: Hat sich erledigt. Habe so gelöst...	51	Bob	08.11.01 14:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen