Replace von "carriage return" in string?

• Replace von "carriage return" in string? von talljohn vom 26.02.2005 20:48:34
• AW: Replace von "carriage return" in string? - von Reinhard am 26.02.2005 21:31:25
• clean oder substitute ?? - von bernd am 26.02.2005 21:46:58
  • AW: clean oder substitute ?? - von Ulf am 26.02.2005 22:53:07

Betrifft: Replace von "carriage return" in string?
von: talljohn

Geschrieben am: 26.02.2005 20:48:34
Hallo Experts,
wie kann ich denn in einem String (ursprünglich html-text, Einlesen siehe code unten) die Zeilenumbrüche rausschmeißen/ersetzen?
Funktion replace mit "&H0D" funktioniert nicht.
Hans

Set myIE_App = CreateObject("InternetExplorer.Application")
myIE_App.Navigate sURL
Do
Sleep 10
Loop Until myIE_App.Busy = False
strText = myIE_App.Document.documentElement.outerTEXT

Betrifft: AW: Replace von "carriage return" in string?
von: Reinhard

Geschrieben am: 26.02.2005 21:31:25
Hi talljohn,
krieg doch erstmal mit nem Hexeditor raus oder mit Code wie dem:

Sub tt()
'..hier strText einlesen
For n = 1 To 400 ' man muss ja nicht alles checken
z = Asc(Mid(strText, n, 1))
If z < 32 Then MsgBox "Zeichen: " & n & "ist das Steuerzeichen: " & z
Next n
End Sub

heraus, welche Steuerzeichen überhaupt drinstecken und ob sie als 0D bzw 0A einzeln oder zusammen als 0D0A stehen.
Dann poste hier mal den Teil des Codes der ersetzen soll.
Gruß
Reinhard

Betrifft: clean oder substitute ??
von: bernd

Geschrieben am: 26.02.2005 21:46:58
Hallo John
Zeilenumbrüche rausschmeissen könnte auch so gehen:
Public

Sub weg()
Dim str As String
str = dein string
MsgBox str
str = WorksheetFunction.Clean(str)
MsgBox str
End Sub

erstzen in diesem fall durch "":
Public

Sub ersetz_durch_nichts()
Dim str As String
str = dein string
MsgBox str
str = WorksheetFunction.Substitute(WorksheetFunction.Substitute(str, Chr(10), ""), Chr(13), "")
MsgBox str
End Sub

bernd

Betrifft: AW: clean oder substitute ??
von: Ulf
Geschrieben am: 26.02.2005 22:53:07
Clean ist der richtige Tipp!
Ulf

Excel-Beispiele zum Thema "Replace von "carriage return" in string?"
Nach Textimport Strings in Zahlen wandeln	Textstring in berechenbare Formel umwandeln
Zahlenstring mit Formel auslesen und Fehlermeldung verhindern	Wertermittlung in Abhängigkeit eines Zeichens in einem String
Sortierung mit Formel-Leerstrings am Ende	Stringeingaben von HHMM und HHMMSS in Zeit wandeln
Aufteilen eines Strings mit Zeilenumbrüchen	Aufhebung der Suchstringbegrenzung von 255 Zeichen
Strings, die wie Zahlen aussehen, in Zahlen umwandeln	Aus einem String mit Datumsangabe das Jahr auslesen