Ansi UTF-8

autowolf

Hi,

bin am verzweifeln.

Mein Script fügt in eine TXT ; ein. Leider wird die Datei immer als UTF-8 gespeichert, was die weiteren Programme nicht können.
Die Quell Datei ist ANSI und soll auch wieder in ANSI ausgespuckt werden.

Nach dem was ich gelesen habe, arbeitet AutoIT eigentlich immer mit ANSI, außer es wird speziell angegeben.

Was ist der Fehler ?

Code

#include <GUIConstants.au3>


GUICreate("Dateibearbeitung",500,300)


$contextmenu = GUICtrlCreateContextMenu ()


$Inputbox = GUICtrlCreateLabel("bitte Datei auswählen/öffnen",170,50)
$buttonAuswahl = GUICtrlCreateButton("Datei öffnen",200,100,100, 50)
$buttonStart = GUICtrlCreateButton("Bearbeitung starten",150,180,200,70)
$buttonEnde = GUICtrlCreateButton("Ende",400,240,80,40)
$DateiAusgewaehlt = 0
$bereitsBearbeitet = 0


GUISetState ()


While 1
    $msg = GUIGetMsg()


    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	If $msg = $buttonEnde Then ExitLoop


	If $msg = $buttonAuswahl then
		$benutzteDatei = FileOpenDialog("Datei öffnen...", "", "Textdateien (*.txt)", 1)
		If @error Then
			MsgBox(16, "Fehler" , "Fehler! Es wurde keine Datei ausgewählt!")
		Else
			$Inputbox = GUICtrlCreateInput($benutzteDatei,40,50, 350, 20)
			$DateiAusgewaehlt = 1
		EndIf
	EndIf


	If $msg = $buttonStart then
		If $DateiAusgewaehlt = 1 then
			$file = FileOpen($benutzteDatei, 0)
			While 1
				$char = FileReadLine($file)
				if @error = -1 Then ExitLoop


				if StringRight(StringLeft($char, 10), 3) == "STR" Then
					MsgBox(16, "Fehler" , "Fehler! Die Datei wurde bereits angepasst!")
					$bereitsBearbeitet = 1
					ExitLoop
				Else
									$zeile = $char
					$vordereZeichen = StringLeft($zeile, 7)
					$hintereZeichen = StringTrimLeft($zeile, 7)
					$zeile  = ($vordereZeichen & ";" & $hintereZeichen )
					FileWriteLine("temp.txt", $zeile)
				EndIf


			Wend
			FileClose($file)
			FileClose($benutzteDatei)
			If $bereitsBearbeitet = 0 Then
				$bereitsBearbeitet = 1
				FileDelete($benutzteDatei)
				FileMove("temp.txt", $benutzteDatei)
				MsgBox(0, "Fertig", "Bearbeitung beendet")
			EndIf
		Else
			MsgBox(16, "Fehler" , "Fehler! Es wurde keine Datei ausgewählt!")
		EndIf
	EndIf
Wend

Alles anzeigen

**Alina**

Script das folgt ist von BugFix mit dem Vermerkt: Nicht getestet, aber sollte laufen

AutoIt

#Include <WinAPI.au3>
Local $fh = FileOpen('UniCodeFile.txt', 32) ; Windows default mode UTF16 Little Endian
Local $strUC = FileRead($fh)
Local $len = StringLen($strUC) +1
FileClose($fh)
Local $tString = DllStructCreate("wchar[" & $len & "]")
DllStructSetData($tString, 1, $strUC)
Local $strANSI = _WinAPI_WideCharToMultiByte(DllStructGetPtr($tString))
FileWrite(@ScriptDir & '\meineANSI.txt', $strANSI)

autowolf

Habe es mal getestet. Leider wird wieder eine UTF-8 ohne BOM ausgespuckt. (meineANSI.txt)

Aber wieso wird denn überhautpt in UTF-8 geschrieben. Laut AutoIT ist es doch immer ANSI.

Yaerox

Mal in die Hilfe geschaut und die Parameter ausprobiert?

Zitat von AutoIt Help File

$FO_ANSI (512) = Use ANSI reading and writing mode.

https://www.autoitscript.com/autoit3/docs/f…ns/FileOpen.htm

autowolf

Jup

Code

$file = FileOpen($benutzteDatei, 512)

ohne Erfolg. Sorry hatte ich vergessen zu sagen.

Habe jetzt das mal gestet, auch UTF8.

wenn die Zeile 1 auf 513 anstat 1 steht auch UTF8. ich dreh echt durch.

Code

$file = FileOpen("test.txt", 1)


FileWrite($file, "Line1")
FileWrite($file, "Still Line1" & @CRLF) ; The CRLF at the end is a line break
FileWrite($file, "Line2")


FileClose($file)

**Kanashius**

Was sagt denn, dass es als UTF-8 gespeichert wurde? Wenn du mit nem Hex-Editor aufmachst, guck mal, ob da führende Bits sind.

autowolf

Nein sind keine Bits im Hex zu sehen.

Yaerox

Zitat von Kanashius

Was sagt denn, dass es als UTF-8 gespeichert wurde? Wenn du mit nem Hex-Editor aufmachst, guck mal, ob da führende Bits sind.

Zitat von autowolf

Nein sind keine Bits im Hex zu sehen.

Damit hast du den zweiten Teil der Frage beantwortet. Den ersten Teil, Wer oder "Was sagt denn, dass es alt UTF-8 gespeichert wurde?", jedoch nicht.
Welchen Editor nutzt du? Sonst können wir das Problem nicht gezielt nachstellen und kontrollieren.

autowolf

Habs jetzt hinbekommen.

Code

#include <FileConstants.au3>
$tempdatei = fileopen( "temp.txt" , $FO_APPEND + $FO_ANSI)

Yaerox

Super

Makierst du das Thema dann noch als erledigt? Danke.

**Kanashius**

Hab grad die Changelogs von Autoit gelesen:
3.3.14.0 (10th July, 2015) (Release)
AutoIt:
Changed: Default text file encoding changed to UTF8 without BOM.
Das erklärt wahrscheinlich das Auftreten des Problems.
Sieht man mal wieder, wieso es wichtig ist, die verwendete AutoIt-Version anzugeben
Wär ich aber vermutlich auch nicht so schnell drauf gekommen.

**BugFix**

Zitat von Kanashius

Changed: Default text file encoding changed to UTF8 without BOM.

Jetzt muß dann nur noch SciTE standardmäßig ebenfalls UTF8 verwenden (statt wie bisher 'locale', hier also Win1252) und dann kann man hoffen, dass in ca. 10 Jahren alle Dateien auch in UTF8 geschrieben sind. Es ist immer ein Krampf allgemeingültige Editor-Plugins zu schreiben, wenn man nicht weiß, welches Encoding bei zu lesenden Dateien verwendet wird. Nicht alle Encodings sind eindeutig zu identifizieren.

**Kanashius**

Naja, die führenden Bits, die das angeben sollen sind aber manchmal auch blöd. Bei PHP hat es mir deshalb schon die Dateien zerschossen, da vor manchen Befehlen ja nichts anderes stehen darf, aber Notepad jedesmal beim speichern die führenden Bits hinzugefügt hat, die dann natrülich davor stehen..... Hat ewig gedauert, bis ich darauf kam mit nem Hex-Editor da drüber zu gucken...
Und jetzt darf ich immernoch jedesmal die Bits da wieder wegnehmen...