Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

zeichen konvertieren pc - mac, mac - pc

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
herkules
•-->
•-->


Anmeldedatum: 05.01.2004
Beiträge: 23
Wohnort: wädenswil - schweiz

BeitragVerfasst am: 16.08.2004 - 15:11    Titel: zeichen konvertieren pc - mac, mac - pc Antworten mit Zitat

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 Very Happy

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;-)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter