Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zeichen ersetzen???
Autor: Bob
Datum: 08.11.01 10:52
Ich will folgense Beispiel für mein Program ändern: Public Function XML_Convert(ByVal sText _ As String) As String 'Ersetzt Sonderzeichen in einer Zeichenkette durch 'entsprechende Kombinationen 'Ersetzungstabelle: '"&" -> "&" '"<" -> "<" '""" -> """ '">" -> ">" Dim iPos As Integer Dim i As Integer Const sCheck = "&" Const sReplace = "&" ' Const sCheck = "<" ' Const sReplace = "<" ' Const sCheck = " Hochgesezten klammern (Chr$(34) funz hier nicht) ' Const sReplace = "&qout;" ' Const sCheck = ">" ' Const sReplace = ">" i = 0 While i < Len(sText) i = i + 1 iPos = InStr(sCheck, Mid$(sText, i, 1)) If iPos > 0 Then sText = Left$(sText, i - 1) + _ Mid$(sReplace, (iPos - 1) * 2 + 1, 5) + _ Mid$(sText, i + 1) i = i + 1 End If Wend XML_Convert = sText End Function Zur Zeit hbae nur Zeichen & geschaft. Leider kriege ich " nicht gebacken. Und für jeder Zeichen,den ich ersetzen will muss ich warscheinlich je schleife schreiben ?

Zeichen ersetzen???	48	Bob	08.11.01 10:52
Re: Zeichen ersetzen???	30	Bob	08.11.01 10:55
Replace-Funktion	286	Dieter	08.11.01 11:01
Re: Danke!!!	45	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...	50	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