€ Zeichen im Pp, € Zeichen im Pp

Hallo alle zusammen

Hab da ne Frage ich schreib gerade einen PP für eine alte Maho.
Ich hab nur das Problem das ich am Schluss vom Programm, für die Steuerung lauter so €€€€ Zeichen brauche das benötigt die Steuerung bei der Übertragung das hat irgendwie was mit eob zu tun man kann auch in cimco das irgendwie einfügen aber nichts funktioniert!

Wenn ich die € Zeichen von Hand einfügen funktioniert die Übertragung , jetzt wollte ich es einfach in pp schreiben aber der pp lässt kein € Zeichen zu auch wenn ich es im Kopf als String definiere. Immer Fehler Meldung das selbe ist mir schon mal mit einem Semikolon so gegangen der ist auch nicht zulässig da er Sätze im Pp ausblendet


Wie bekomme ich diese Zeichen in den Pp und somit an das Programm Ende hat da jemand vielleicht eine Idee?

Kann man auch Unicode Kürzel im PP verwenden ?

Bin für jede Hilfe dankbar
Mfg

Der Beitrag wurde von clubby300 bearbeitet: 14.07.2023, 18:03 Uhr

Schick mal bitte ein Beispielsatz wie du dir das im PP gedacht hast.

Semikolon funktionieren bei mir. Vermutlich hast du einen Syntaxfehler.

Die Ausgabe des Euro Zeichen funktioniert bei mir.
Das Auszugebene Zeichen kommt in Hochtüddel
Das ist das Zeichen auf der Taste bei der Raute mit Shift ' neben dem Ä
Der code:
--------
@end_of_file

{nb,';Hier kommt jetzt der Euro'}
{nb,'€€€'}
; {nl, '%'}
--------

Bei uns musste auch immer ein Zeichen am Ende stehen, aber ohne Nummer davor:
Dann wird statt nb einfach nl benutzt (NewBlock / NewLine)

@end_of_file
{nb,'(Ende)'}
{nl}
{nl,''}
endp

Hallo alle Zusammen.

Erstmal vielen Dank an alle es hat nu funktioniert

Aber genauso

{nb,'€€€'}

Hat es bei mir nicht funktioniert kann immer eine Fehlermeldung

Ich hab es jetzt in hexadezimal geschrieben das scheint zu funktionieren

Sieht dann so aus

{nb,'\x04''\x80' }

Hexadezimal scheint zu funktionieren

X80 ergibt das € Zeichen

Lg

Kontrolliere mal Deinen PP-Editor ob der ANSI Codepage 1252 speichert und nicht zufällig UTF-8. Sonst klappt das nicht mit den Sonderzeichen und der PP gibt was ganz anderes aus als ein €.

Über das Problem bin ich das erste Mal gestolpert als ich die Routine unten eingebaut habe.

Andreas.


@usr_ReplaceString(string sReplaceCharacter)
local String Valid, OldC, Unknown
local Integer i, k

;Ersatz für unbekannte Zeichen
Unknown = ' '
if Steuerung eq 'Heidenhain'
;Gültige Zeichen
Valid = '!"#$%&()*+,-./:<>?@\^_~ 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz;=[]'
endif
if Steuerung eq 'Phillips'
Valid = '!"#$%&()*+,-./:<>?@\^~ 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
endif

;Sonderzeichen ersetzen
sReplaceCharacter=replace(sReplaceCharacter,'ä','ae',0)
sReplaceCharacter=replace(sReplaceCharacter,'ö','oe',0)
sReplaceCharacter=replace(sReplaceCharacter,'ü','ue',0)
sReplaceCharacter=replace(sReplaceCharacter,'Ä','ae',0)
sReplaceCharacter=replace(sReplaceCharacter,'Ö','oe',0)
sReplaceCharacter=replace(sReplaceCharacter,'Ü','ue',0)
sReplaceCharacter=replace(sReplaceCharacter,'ß','ss',0)
sReplaceCharacter=replace(sReplaceCharacter,'é','e',0)
sReplaceCharacter=replace(sReplaceCharacter,'á','a',0)
sReplaceCharacter=replace(sReplaceCharacter,'é','e',0)
sReplaceCharacter=replace(sReplaceCharacter,'è','e',0)
sReplaceCharacter=replace(sReplaceCharacter,'á','a',0)
sReplaceCharacter=replace(sReplaceCharacter,'à','a',0)
sReplaceCharacter=replace(sReplaceCharacter,'â','a',0)
sReplaceCharacter=replace(sReplaceCharacter,'ê','e',0)
sReplaceCharacter=replace(sReplaceCharacter,'€','E',0)
sReplaceCharacter=replace(sReplaceCharacter,'ø','D',0)
sReplaceCharacter=replace(sReplaceCharacter,'Ø','D',0)
sReplaceCharacter=replace(sReplaceCharacter,'{','(',0)
sReplaceCharacter=replace(sReplaceCharacter,'}',')',0)
sReplaceCharacter=replace(sReplaceCharacter,'°','G',0)
sReplaceCharacter=replace(sReplaceCharacter,'²','2',0)
sReplaceCharacter=replace(sReplaceCharacter,'³','3',0)
sReplaceCharacter=replace(sReplaceCharacter,'§','$',0)
sReplaceCharacter=replace(sReplaceCharacter,'±','+-',0)

;Ungültige Zeichen ersetzen
i = 1
while i le strlen(sReplaceCharacter)
OldC = SubStr(sReplaceCharacter, i, 1)
k = Instr(Valid, OldC)
if k eq 0
sReplaceCharacter = Replace(sReplaceCharacter, OldC, Unknown)
endif
i = i + 1
endw

sReplaceCharacter=upper(sReplaceCharacter)
endp

Hallo Andreas,

Hab’s jetzt erst gesehen!

Also ich schreib meine Änderungen des pp schon immer in cimco.

Ich muss mal schauen ob ich da überhaupt irgendwo einstellen kann wie es gespeichert wird

Hallo,

ich empfehle Notepad++ oder besser noch Visual Studio Code.
Bei Notepad ist die Funktionsliste ganz praktisch um zwischen den einzelnen Routinen zu springen.
Visual Studio Code kann natürlich noch mehr mit dem entsprechenden Plugin. (z.B. live debuggen)
Bei CIMCO lässt sich da meines Wissens nach nix einstellen.

Edit: CIMCO erkennt scheinbar die Codierung und speichert auch in dem Code wieder.
Habe das bei mir gerade getestet und mittels Notepad++ die Codierung geändert. Sollte dann auch wieder mit CIMCO funktionieren.

Der Beitrag wurde von KaJo86 bearbeitet: 21.07.2023, 09:14 Uhr

Tatsächlich die Codierung war der Fehler nun gehen Sonderzeichen.

Aber gut zu wissen das man auch in Hexadezimale umrechnen kann und verwenden :)

MfG

Da hätte ich mal eine Zwischenfrage:

Ich habe Notepad++ in Version 7.9 da funktioniert die Funktionsliste. Seit der Version 8 krieg ich das Ding nicht mehr zum laufen.
Allen Anleitungen zum Trotz will das Ding überhaupt gar nicht. Hast Du da mal einen Tip?

Andreas.

Moin,
Bei mir war die Funktionsliste auch irgendwann verschwunden. Aktuell nutze ich Version 8.5.4 Musste selbst lange nach einer Lösung suchen. Ich hab dafür mittlerweile eine Batch, weil sie bei jedem Update verschwindet. Leider kann ich nicht alle nötigen Dateien als Anhang einstellen. Wie kann/soll ich dir die Infos zukommen lassen?

Zip bitte alles zusammen und dann lade es bitte in meine DropBox:
https://www.dropbox.com/request/1st1xoAVyqLOgheTTb6m

Ich sag schon mal vielen Dank.

Andreas.