XProfan

Sven
Bader

Desde que otra vez mehr con Profano2CPP a tun habe dokumentiere Yo hier Dinge, en Yo así stolpere. Yo benutze el Versión 2.0a

Den Anfang möchte I, con el Zeilenweise Einlesen de Archivos hacer

1.

cls
declarar datei$, zeile$
datei$ = "test.txt"
Asignar #1,datei$
Reset #1

WHILENOT Eof(#1)

    Entrada #1,zeile$
    imprimir zeile$

ENDWHILE

Cerrar #1
imprimir "fertig!"
waitkey
end

Dieses Ejemplo funktioniert bestens con bajo Windows erzeugten Archivos, con Archivos de Linux/Unix/Mac Umgebungen kommt lo a Fehlern. Profano2CPP scheint hier zwingend una CR LF como Zeilenumbruch a esperar also \r\n y no sólo \n oder sólo \r

Der Effekt fällt en media Tests unterschiedlich de. con VC++ (1998) fehlt cada Línea el erste Signo, como hier wohl el fehlende "\r" übersprungen se. En Borland C++ 5.5 se gefühlt alles zerhackt y uno landet a allem Unglück beim Auslesen en uno Endlosschleife.

Un (si auch Holzhammer)-Solución es el korrigieren el Zeilenumbrüche y speichern como KOPIE. Mi Solución es no bastante sauber, como ellos \r va \r\n austauscht y danach doppelte \n en einfache umwandelt. Das kann zuvor vorhandene vacío Zeilen en el Expediente löschen.

'Expediente korrigieren
Dim Zona#, FileSize(datei$)
BlockRead(datei$, Zona#, 0, FileSize(datei$))
content$ = String$(Zona#,0)
content$ = translate$(content$,Chr$(10),Chr$(13)+Chr$(10))
content$ = translate$(content$,Chr$(13)+Chr$(13),Chr$(13))
disponer Zona#
Dim Zona#, len(content$) + 1
String Zona#,0 = content$
Asignar #1, datei$+".tmp"
OpenRW #1
BlockWrite #1, Zona#, 0, len(content$)-1
Cerrar #1
disponer Zona#
'Kopie Zeilenweise auslesen sin Problemas
Asignar #1,datei$+".tmp"
Reset #1
i& = 0

Sinestar encargado Eof(#1)

    Entrada #1,zeile$
    getLine(zeile$)

EndWhile

Cerrar #1

2. Angeblich falsche Parámetro-Anzahl

Dies se beim Syntaxcheck en manchen Aufrufen adecuado. Se puede el Fehler ignorieren, como el Programas al Ende trotzdem korrekt laufen. Dennoch nervt lo, lo en cada Compilierung bestätigen tener y darüber evtl. echte Fehler a verpassen.

El Solución steckt aquí en el Expediente subfuncs.dat o. funcdb.dat en el \data\ Directorio de Profano2CPP, hier puede el Parameterzahlen korrigiert voluntad como para Ejemplo ogl.outlinefont 2 en lugar de 1 y ogl.pyramid con 3 en lugar de 2.

p2cpp.jpg

80 kB

Bezeichnung:

p2cpp

Hochgeladen:

04.08.2021

Ladeanzahl:

Descargar

subfuncs.jpg Prevista

56 kB

Bezeichnung:

subfuncs

Hochgeladen:

04.08.2021

Ladeanzahl:

Descargar

04.08.2021 ▲

Sven
Bader

Einen tener Todavía

3. Vorzeichen

Ein Vorzeichenminus producido en Kombination con un Minus-Operator una Fehler beim Compilieren.

cls
declarar i&,j&
i& = 5
j&  = 10 - -i&'Fehler
j&  = 10 + -i&'ok
j&  = 10 - -1'Fehler
j&  = 10 + -1'ok
j&  = 10 + +1'Fehler
j&  = 10 - +1'ok
imprimir j&
waitkey
end

Also j& = 10 - -i& va no, j& = 10 + -i& dagegen funktioniert. Es esta egal si el Vorzeichen a un número oder Variable es. Ein doppeltes Plus (Operator + Vorzeichen) va auch no, hay puede ser natürlich el Vorzeichen simplemente weglassen.

El Solución? Un Klammer el número con el Vorzeichen: j& = 10 - (-1)

08.10.2021 ▲

Sven
Bader

Noch algo para Thema Se bloquea

, como Yo gerade otra vez así una Fall hatte...

Diese treten gelegentlich (entonces reproduzierbar) beim Übersetzen en, also si P2CPP "Übersetze..." anzeigt. El Prozentzahl antes el Choque, son hier auch una ungefähre Concepto de el Punto en el Code.

Lo kommt hier wohl a Zugriffsverletzungen, porque beim Ausweichen en alte Systeme (Windows XP) se ejecuta el Übersetzung sauber por.

Folgende Línea war por ejemplo para choque verantwortlich.

factor! = 1.0 / Max(0.00001, sqrt(cross![0] * cross![0] + cross![1] * cross![1] + cross![2] *cross![2]))

En me ha ya el matemáticamente irrelvante Hinzufügen de Klammern geholfen, en el Choque a vermeiden:

factor! = 1.0 / Max(0.00001, sqrt((cross![0] * cross![0]) + (cross![1] * cross![1]) + (cross![2] *cross![2])))

Lo scheint sin embargo una cierto Menge "kritischer" Zeilen para choque nötig a ser, como Yo en un pequeño Code no reproduzieren podría.

Auch en el Vergangenheit waren siempre Verkettungen vieler Operatoren el ursache. El Solución siempre Klammern oder Teilrechnungen en una variable zwischenspeichern.

20.10.2021 ▲

Sven
Bader

Addfiles con Unterverzeichnissen also führendem Stern, funktioniert no con absoluten Pfaden.

Hier landen zwar Archivos en el Listbox de el angegebenen Directorio pero la Pfad a Expediente es stattdessen el aktuelle Arbeitsverzeichnis y así falso! In historyPath$ steckt una absoluter Pfad. Beheben lässt lo, indem uno antes Ausführung de AddFiles en el betreffende Directorio wechselt.

ChDir historyPath$
AddFiles *historyPath$+"\\"+DateiName(dname$) +"*"
ChDir CurrentDir$'vorheriges Directorio muss vorab gespeichert voluntad

Regex

Match$("^(~s*)~b(?i)cat~b","   CAT and dog")
imprimir %MatchPos
Match$("~b(?i)cat~b","   CAT and dog")
imprimir %MatchPos
Match$("~S", "   CAT and dog")
imprimir %MatchPos

XProfan
1 Beliebig viele Whitespaces, entonces cat como ganzes Wort (caso-insensitive)
4 como ganzes Wort (caso-insensitive)
4 erster no-Whitespace

Profano2CPP
-1 abweichend
4 passt
1 abweichend

Wer hier correcto liegt y por qué, lo en Profano una vez el kleine y una vez el große ~S braucht, weiß Yo no, como Yo en el Umgang con Regex no muy erfahren bin.

21.03.2023 ▲

Sven
Bader

Das Thema Klammern hatten wir ya unos pocos Tiempo aber genau el glaube Todavía no:

Um Bedingungen con oder o y (|, &) debería siempre una Klammer, sonst es en P2CPP no:

falso

Largo rtf#,0 = 60
Largo rtf#,4 = ~CFM_FACE | ~CFM_CHARSET | ~CFM_COLOR

correcto

Largo rtf#,0 = 60
Largo rtf#,4 = (~CFM_FACE | ~CFM_CHARSET | ~CFM_COLOR)

21.11.2023 ▲