UTF8 nach ASCII

[DarkCrow]

Hallo PBler,

ich wollte eine Datei vom UTF8 nach ASCII konvertieren, leider funktioniert mein "Konstrukt" nicht wie gewünscht, denn es gibt mir kein ASCII zurück.

Hier mein Code:

Code: Alles auswählen

Procedure UTF8toASCII(file_name$)
  in = ReadFile(#PB_Any, file_name$)
  out = CreateFile(#PB_Any,file_name$ + ".ASCII." + GetExtensionPart(file_name$))
  If in And out
    While Eof(in) = 0
      *mem = AllocateMemory(1048576)
      text$ = ReadString(in, #PB_UTF8)
      PokeS(*mem, text$, Len(text$), #PB_UTF8)
      text$ = PeekS(*mem, -1, #PB_Ascii)
      WriteStringN(out,text$,#PB_Ascii)
    Wend
    CloseFile(in)
  EndIf
EndProcedure

Bin ich auf dem richtigen Weg? Oder wie würdet ihr sowas machen?

[ts-soft]

Alles was ASCII ist in UTF-8, liegt dort auch so vor. Der Rest ist nicht
in ASCII vorhanden, also wozu die Wandlung?

[DarkCrow]

Hmm, das stimmt, mein Problem ist, dass ich, wenn ich mit UEStudio per Konvertieren\UTF8 nach ASCII die Datei konvertier, die Datei einwandfrei mit meinem Delphi Programm verarbeiten kann.

Ich werd mal schauen, warum es nach der Konvertierung geht und vorher nicht.

Danke.

[ts-soft]

Ansonsten sollte es so reichen

Code: Alles auswählen

Procedure UTF8toASCII(file_name$)
  Protected in.l = ReadFile(#PB_Any, file_name$)
  Protected out.l = CreateFile(#PB_Any,file_name$ + ".ASCII." + GetExtensionPart(file_name$))
  If in And out
    ReadStringFormat(in)
    While Not Eof(in)
      text.s = ReadString(in, #PB_UTF8)
      WriteStringN(out, text.s, #PB_Ascii)
    Wend
    CloseFile(in)
    CloseFile(out)
  EndIf
EndProcedure

text.s erhält automatisch ASCII wenns eine ASCII exe ist, bzw. UNICODE
wenns eine UNICODE exe ist, was anderes kann PB als String sowieso
nicht verarbeiten, nur im Speicher.

Strings haben immer das Format der Exe!!!

[#NULL]

*anmerk*
wenn das öffnen einer der dateien fehlschlägt, wird die andere nicht geschlossen.

[ts-soft]

*anmerk*
wenn das öffnen einer der dateien fehlschlägt, wird die andere nicht geschlossen.

Was dann ja auch nicht so wichtig ist, da man nicht mehr drauf zugreift.
Prüfen ist wichtig, aber übertreiben muß man es nicht auch noch, sonst
fängt jede Zeile mit If an

[Hellhound66]

Es gibt in meinen Augen wenig, was wichtiger ist, als prüfen. Und die beiden Closefile() mit ner If-Anweisung aus der Schleife zu nehmen ist ja auch nicht so tragisch. Aus meiner Sicht sind wir noch Meilen entfernt von "übertreiben".

[ts-soft]

Da die Dateien in diesem Falle nicht genutzt werden, reicht der Hinweis aus der Hilfe:

Hinweis: Am Programmende ist PureBasic "klug" genug, um alle offenen Dateien automatisch zu schließen. Deshalb müssen Sie dies nicht unbedingt selbst erledigen.

[Hellhound66]

Da die Dateien in diesem Falle nicht genutzt werden, reicht der Hinweis aus der Hilfe:

Weisst du es?
Könnte sein, dass die Datei während der Laufzeit nochmal erstellt wird, dann ist es zum Scheitern verurteilt.

[#NULL]

@ts-soft
da steht nur eine prozeduren-definition. die proc wird nicht aufgerufen, also kann man reinschreiben was man will, ist immer sicher, das 'programm'.