OpenOffice.info

Sub Main
  Dim sInName, sOutName As String
  Dim x, i, iSz As Integer
  
  sInName = "C:\tmp\in.txt"
  sOutName = "C:\tmp\in.txt"
  
  iNum = 1
  oNum = 2 
  iSz = FileLen(sInName)
  Open sOutName For Binary Access Write As #oNum Len=1
  Open sInName For Binary Access Read As #iNum Len=1
  for i = 0 to iSz-1
    Get #iNum,i+1,x
    Put #oNum,i+1,x
  Next i

  Close #iNum 
  Close #oNum
End Sub

Das ginge z.B.: wie folgt:

[code]
Sub Main
Dim sInName, sOutName As String
Dim x, i, iSz As Integer

sInName = "C:\tmp\in.txt"
sOutName = "C:\tmp\in.txt"

iNum = 1
oNum = 2
iSz = FileLen(sInName)
Open sOutName For Binary Access Write As #oNum Len=1
Open sInName For Binary Access Read As #iNum Len=1
for i = 0 to iSz-1
Get #iNum,i+1,x
Put #oNum,i+1,x
Next i

Close #iNum
Close #oNum
End Sub
[/code]

Unicode benötig immer 2 Zeichen (oder 4) für einen dargestellten Buchstaben. Da solche Sequenzen in verschiedener Reihenfolge gespeichert werden können (Little/Big Endian) kann es (muss aber nicht) am Dateianfang eine BOM (Byte Order Mark) geben. Damit kann beim Lesen eindeutig festgestellt werden was vorliegt (0xFF, 0xFE = Little Endian UCS-2). Jedes Zeichen besteht dann auch aus 2 Byte (z.B.: 0x48 0x00 = "H").

Wenn Du also die einzelnen Zeilen benötigst musst Du die Daten (x) selber untersuchen (0x0A 0x00 ist z.B. ein Zeilen Ende). Aber Achtung(!) nur die normalen ASCII-Zeichen lassen sich dann in BASIC korrekt darstellen, Sonderzeichen ergeben unweigerlich einen Fehler und müssen geignet abgefangen werden (was nicht immer geht!!). Für weiterführendes Interesse einfach mal "Zeichensatz" auf WikiPedia eingeben ....

Zeile 1 der TextEingabeDatei in Unicode 
Zeile 2 der TextEingabeDatei in Unicode

for i = 1 to 2
   input #iDatenkanalIn, sInhalt
   print #iDatenkanalOut, sInhalt
next

??Zeile 1 der TextEingabeDatei in Unicode 
Zeile 2 der TextEingabeDatei in Unicode 

Ich muss eine Textdatei verarbeiten, die im Unicode vorliegt.
Wenn ich die Eingabedaten mit input einlese und mit print wieder ausgebe, dann werden 2 Fragezeichen an den Anfang der Ausgabedatei gestellt. (die Eingabedatei enthält dort x'FF FE')
Die Ausgabedatei ist dann auch nicht mehr im Unicode.

der Inhalt der Eingabedatei:
[code]Zeile 1 der TextEingabeDatei in Unicode
Zeile 2 der TextEingabeDatei in Unicode[/code]

Programmausschnitt:
[code]
for i = 1 to 2
input #iDatenkanalIn, sInhalt
print #iDatenkanalOut, sInhalt
next
[/code]

der Inhalt der Ausgabedatei:
[code]??Zeile 1 der TextEingabeDatei in Unicode
Zeile 2 der TextEingabeDatei in Unicode [/code]

Ich würde mich freuen, wenn mir jemand helfen könnte, die Ausgabedatei auch im korrekten Unicode (ohne die Fragezeichen) zu bekommen.
Danke im Voraus.
Paul