zeichen konvertieren pc - mac, mac - pc

[herkules]

hallo zusammen!
das biespiel hier unten liest eine textdatei zeichen für zeichen aus, setzt es wieder zusammen und schreibt es in ein outputfile. dabei werden die ascii-zeichensätze von pc und mac getauscht. natürlich geht dies auch umgekehrt... einfach mal den source lesen

viel spass!


-----------------------
-- V A R I A B E L N --
-----------------------


set InputFile to "Hd:Steuerkarten:converter.txt" as alias


-- Konverter aufrufen
|Konverter|(InputFile)

activate (display dialog "fertig!")


on |Konverter|(Input)

-- Variabeln
--**********
set MacZeichen to {128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255}
set PcZeichen to {196, 197, 199, 201, 209, 214, 220, 225, 224, 226, 228, 227, 229, 231, 233, 232, 234, 235, 237, 236, 238, 239, 241, 243, 242, 244, 246, 245, 250, 249, 251, 252, 134, 186, 162, 163, 167, 149, 182, 223, 174, 169, 153, 180, 168, 164, 198, 216, 149, 177, 163, 164, 165, 181, 240, 194, 146, 222, 218, 170, 186, 164, 230, 248, 191, 161, 172, 247, 131, 170, 208, 171, 187, 133, 160, 192, 195, 213, 140, 156, 150, 151, 147, 148, 145, 146, 247, 135, 255, 159, 164, 128, 139, 155, 164, 164, 135, 183, 130, 132, 137, 194, 202, 193, 203, 200, 205, 206, 207, 204, 211, 212, 164, 210, 218, 219, 217, 166, 136, 152, 175, 164, 164, 176, 184, 180, 164, 164}
set Inhalt to ""


-- Input-File verarbeiten
--***********************

-- File oeffnen
open for access Input

-- Eof und somit Anzahl Zeichen holen
set AnzZeichen to get eof Input

-- alle Zeichen abarbeiten
repeat with n from 1 to get eof Input

-- Zeichen lesen
set Zeichen to read Input from n to n

-- Ascii-Nummer holen
set AsciiNr to ASCII number Zeichen

-- nur suchen, wenn >= 128 und <= 255
if AsciiNr >= 128 and AsciiNr <= 255 then

-- Zaehler initialisieren
set AsciiZaehler to 1

-- Ascii-Nummer in Pc-Liste suchen
repeat while AsciiNr != (item AsciiZaehler of PcZeichen) and AsciiZaehler <= (length of PcZeichen)
set AsciiZaehler to AsciiZaehler + 1
end repeat

-- Ascii-Zeichen aus Mac-Liste holen
set Zeichen to ASCII character (item AsciiZaehler of MacZeichen)

else

-- Ascii-Zeichen uebergeben
set Zeichen to ASCII character AsciiNr

end if

-- Inhalt abfuellen
set Inhalt to Inhalt & Zeichen

end repeat

-- File schliessen
close access Input



-- Output-File verarbeiten
--************************

-- Pfad uebergeben
set Output to "Mac 04:Steuerkarten:converterout.txt"

-- loeschen, wenn bereits vorhanden
tell application "Finder"
if file Output exists then
delete file Output
end if
end tell

-- File anlegen
set Output to open for access Output with write permission

-- Inhalt schreiben
write Inhalt to Output

-- File schliessen
close access Output

end |Konverter|
_________________
gruss christos;-)