leider gehen alle Zeilenumbrüche dabei verloren!
Dazu brauchen wir schon deinen Code. _StringBetween killt definitiv keine Zeilenumbrüche, der Fehler liegt dann an anderer Stelle.
Sicher, dass das nicht einfach nur wegen _Arraydisplay passiert?
_Arraydisplay entfertn Zeilenumbrüche bei der Darstellung. Im Array bzw. im Ergebnis sind die aber trotzdem noch vorhanden.
wenn du das eh als array hast, wieso schreibst du die array nicht wieder in eine variable (so wolltest du das doch, oder?)
und arrays kann man mit dem index genau wie strings bearbeiten!
außerdem wäre es hilfreich zumindest ein beispiel zu sehen zu bekommen
$array = "?"
$string = ""
For $i = 1 To $array[0]
$string &= $array[$i] & @CRLF
Next
qblack_skorpi
Hatte ja oben schon geschrieben warum kein Beispiel da ist. Kommt aber jetzt
[autoit]
#include <string.au3>
#include <IE.au3>
#include <array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Geo", 1024, 768, 200, 127)
$Datei = GUICtrlCreateMenu("Datei")
$gpx_open = GUICtrlCreateMenuItem("GPX Datei öffnen", $Datei)
$tool_exit = GUICtrlCreateMenuItem("Beenden", $Datei)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $gpx_open
$pfad_gpx = FileOpenDialog("Wähle die GPX Datei aus", "c:\", " GeoCache Dateien (*.gpx)")
$file = FileOpen($pfad_gpx, 0)
$data = FileRead($file)
FileClose($file)
MsgBox(0, "1", "" & $data) ; Hier ist noch alles i.O.
$beschreibung = _StringBetween($data, "<description html=" & Chr(34) & "true" & Chr(34) & ">", "</description>")
MsgBox(0, "2", "" & $beschreibung[0]); Hier nicht mehr
$beschreibung = "<description html=" & Chr(34) & "true" & Chr(34) & ">" & $beschreibung[0] & "</description>"
MsgBox(0, "3", "" & $beschreibung);Hier dann auch nicht 
$file = FileOpen("c:\temp.html", 2)
FileWrite($file, $beschreibung)
FileClose($file)
$object = _IECreateEmbedded()
$object_ctrl = GUICtrlCreateObj($object, 10, 470, 1000, 265)
$URL = "c:\temp.html"
_IENavigate($object, $URL)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Kannst Du mal eine Beispieldatei (*.gpx) posten?
Man kann das sonst nicht so nachvollziehen.
Ich hab ein wenig gegoogelt und mir eine runtergeladen. In der steht nur keine description, also wäre es wirklich schön, ein Beispiel zu posten.
Wieso schreibst du nicht anstelle von:
"<description html=" & Chr(34) & "true" & Chr(34) & ">" & $beschreibung[0] & "</description>"
einfach:
'<description html="true">' & $beschreibung[0] & "</description>"
?
Bei einem anderen Programm von mir löscht _Stringbetween nicht die @CRLFs ( @CRs).
Es werden keine Zeilenumbrüche gelöscht - der Text enthält nämlich gar keine! 
"description" steht in einer einzigen Zeile.
Was ist das denn für eine HTML-Kodierung? Kannst Du die Seite nicht anders auslesen?
Wenn nein, musst Du halt alles umwandeln:
$sText = FileRead(@ScriptDir & '\OC91F8.txt')
$sDescription = StringRegExpReplace($sText, '(?s).+<description html="true">(.+)</description>.+', '$1')
Dim $aReplace[9][2] = [['<p>', ''],['</p>', @CRLF],['&nbsp;', ' '], _
['&ouml;', 'ö'],['&uuml;', 'ü'],['&auml;', 'ä'], _
['&szlig;', 'ß'],['&deg;', '°'],['<br />', @CRLF]]
For $i = 0 To UBound($aReplace) - 1
$sDescription = StringReplace($sDescription, $aReplace[$i][0], $aReplace[$i][1])
Next
MsgBox(0, 0, $sDescription)
So hast Du dann wieder einen lesbaren Text.
Also willst Du nach dem extrahieren wieder HTML haben?
$sSourcefile = @ScriptDir & '\OC91F8.txt'
$sTargetfile = @ScriptDir & '\OC91F8.html'
$sText = FileRead($sSourcefile)
$sDescription = StringRegExpReplace($sText, '(?s).+<description html="true">(.+)</description>.+', '$1')
Dim $aReplace[9][2] = [['<p>', '<p>'],['</p>', '</p>'],['&nbsp;', ' '], _
['&ouml;', 'ö'],['&uuml;', 'ü'],['&auml;', 'ä'], _
['&szlig;', 'ß'],['&deg;', '°'],['<br />', '<br />']]
For $i = 0 To UBound($aReplace) - 1
$sDescription = StringReplace($sDescription, $aReplace[$i][0], $aReplace[$i][1])
Next
$hFile = FileOpen($sTargetfile, 2)
If $hFile = -1 Then Exit
FileWrite($hFile, '<html><body>')
FileWrite($hFile, $sDescription)
FileWrite($hFile, '</body></html>')
FileClose($hFile)
ShellExecute(@ProgramFilesDir & '\Internet Explorer\iexplore.exe', $sTargetfile)
Hast sogar Recht.
Naja, blindes Huhn findt auch mal 'n Korn. 
Ja funktioniert und genau das möchte ich haben. Nur denke ich wird das schon ganzschön mühselig, wenn ich mir mal anschaue wieviele Ersetzungen ich machen müsste damit es immer funktioniert. Hatte gehofft das es eine einfachere Möglichkeit gibt XML in einem Browser formatiert anzuzeigen (kenne mich in HTML und XML nicht wirklich aus). Dummerweise ist das halt das einzigste Format, welches ich kriegen kann. Werd mal weiter google bemühen, vielleicht finde ich doch noch was.
Ach, man muss doch gar nicht so viel umwandeln (wenn es nur HTML sein soll). Das meiste ist doch gleich. 
So reicht doch:
$sSourcefile = @ScriptDir & '\OC91F8.txt'
$sTargetfile = @ScriptDir & '\OC91F8.html'
$sText = FileRead($sSourcefile)
$sDescription = StringRegExpReplace($sText, '(?s).+<description html="true">(.+)</description>.+', '$1')
Dim $aReplace[3][2] = [['<', '<'],['>', '>'],['&', '&']]
For $i = 0 To UBound($aReplace) - 1
$sDescription = StringReplace($sDescription, $aReplace[$i][0], $aReplace[$i][1])
Next
$hFile = FileOpen($sTargetfile, 2)
If $hFile = -1 Then Exit
FileWrite($hFile, '<html><body>')
FileWrite($hFile, $sDescription)
FileWrite($hFile, '</body></html>')
FileClose($hFile)
ShellExecute(@ProgramFilesDir & '\Internet Explorer\iexplore.exe', $sTargetfile)
Hey, das sieht doch schon ganz gut aus !! THX.
Ist halt hilfreich, wenn man weis was gleich ist und was nicht 
. Jetzt muss ich nur noch die Bilder bekommen und ich bin schon (zur Sicherheit) fast zufrieden
Bilder? Wo sind denn da Bilder enthalten?
