Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Replace von "carriage return" in string?

Replace von "carriage return" in string?
26.02.2005 20:48:34
"carriage
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Replace von "carriage return" in string?
"carriage
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
clean oder substitute ?
bernd
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
Anzeige
AW: clean oder substitute ?
Ulf
Clean ist der richtige Tipp!
Ulf

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige