XProfan

Sven
Bader

Since I again longer Profan2CPP To do have dokumentiere I here items, over The I so stolpere. I use The Version 2.0a

whom beginning would like I with the Zeilenweise Reading Files make

1.

cls
declare File$, row$
datei$ = "test.txt"
Assign #1,File$
Reset #1

WHILENOT Eof(#1)

    Input #1,row$
    print row$

ENDWHILE

Close #1
print "fertig!"
waitkey
end

this example functions fine with under windows begot Files, with Files from Linux/Unix/mac entourages comes it To Fehlern. Profan2CPP shining here coercive one CR LF as Line break To expect means \r\n and not only \n or only \r

The effect falls in my Tests different from. with VC++ (1998) missing eachone row the first characters, there here well the fehlende "\r" übersprungen becomes. with Borland C++ 5.5 becomes felt everything hacking and one alights To everything catastrophe at Reading in a Endlosschleife.

an (if too Mallet)-Solution is the correct the Zeilenumbrüche and Save as KOPIE. my Solution isn't integrally tidy, there tappt im dunkeln \r goes \r\n austauscht and thereafter double \n in simple umwandelt. the can before available vain Lines in the File delete.

'File correct
Dim area#, FileSize(File$)
BlockRead(File$, area#, 0, FileSize(File$))
content$ = String $(area#,0)
content$ = translate $(content$,Chr$(10),Chr$(13)+Chr$(10))
content$ = translate $(content$,Chr$(13)+Chr$(13),Chr$(13))
dispose area#
Dim area#, len(content$) + 1
String area#,0 = content$
Assign #1, File$+".tmp"
OpenRW #1
BlockWrite #1, area#, 0, len(content$)-1
Close #1
dispose area#
'copy Zeilenweise read without Problems
Assign #1,File$+".tmp"
Reset #1
i& = 0

WhileNot Eof(#1)

    Input #1,row$
    getLine($ row)

EndWhile

Close #1

2. allegedly incorrect Parameter-amount

this becomes at Syntaxcheck with manchen Call displayed. one can whom Error ignore, since the programs end nevertheless correctly walk. nevertheless nervt it, it with eachone Compilierung confirm To must and above evtl. real Error To miss out on.

The Solution stick here in the File subfuncs.dat or. funcdb.dat in the \data\ directory of Profan2CPP, here can The Parameterzahlen korrigiert go How to that example ogl.outlinefont 2 instead of 1 and ogl.pyramid with 3 instead of 2.

p2cpp.jpg

80 kB

Bezeichnung:

p2cpp

Hochgeladen:

08/04/21

Downloadcounter:

Download

subfuncs.jpg Preview

56 kB

Bezeichnung:

subfuncs

Hochgeladen:

08/04/21

Downloadcounter:

Download

08/04/21 ▲

Sven
Bader

a Have I yet

3. omen

One Vorzeichenminus created in combination with a less-Operator a Error Compilieren.

cls
declare i&,j&
i& = 5
j&  = 10 - -i&'Error
j&  = 10 + -i&'ok
j&  = 10 - -1'Error
j&  = 10 + -1'ok
j&  = 10 + +1'Error
j&  = 10 - +1'ok
print j&
waitkey
end

means j& = 10 - -i& is not, j& = 10 + -i& against it functions. its thereby alike whether the omen at a number or Variable standing. One doppeltes plus (Operator + omen) goes neither, there can be naturally the omen simply omit.

The Solution? an Klammer the number with the omen: j& = 10 - (-1)

10/08/21 ▲

Sven
Bader

yet something about Abstürze

, I straight again so a drop having...

These zurück occasionally (then reproduzierbar) at Übersetzen on, means if P2CPP "Übersetze..." indicating. The Prozentzahl to the crash, gives here too a vaguely idea from the place in the code.

it comes here well To Zugriffsverletzungen, because at sheer on old systems (Windows XP) runs The Translation tidy through.

following row was in example for a crash Responsible.

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

With me is already the mathematically irrelvante add of clinging helped, around the crash To avoid:

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

it shining however a defined crowd "kritischer" Lines for a crash necessary To his, I it in a small code not reproduzieren could.

too in the past tense were always Verkettungen vieler Operators The cause. The Solution are always clinging or Teilrechnungen in a variable zwischenspeichern.

10/20/21 ▲

Sven
Bader

Addfiles with Unterverzeichnissen means führendem star, not working with absoluten Pfaden.

here disembark of course Files the Listbox from the angegebenen directory but the way to File is instead the actually Arbeitsverzeichnis and so wrong! In historyPath$ stick one absolute way. To fix can it itself, because one to the process of AddFiles into concerned directory changes.

ChDir historyPath$
AddFiles *historyPath$+"\\"+DateiName(dname$) +"*"
ChDir CurrentDir$'vorheriges directory must beforehand stored go

Regex

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

XProfan
1 as much as you want Whitespaces, then cat as ganzes word (case-insensitive)
4 as ganzes word (case-insensitive)
4 first not-Whitespace

Profan2CPP
-1 abweichend
4 fit
1 abweichend

who here correctly. lying and why, it in Profan once the small and once the large ~S need, white I do not, I in the Use with Regex not very experienced be.

03/21/23 ▲

Sven
Bader

the Topic clinging had we already a couple time but very the faith I not yet:

circa terms with or or and (|, &) ought to always a Klammer, otherwise goes it in P2CPP not:

wrong

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

correctly.

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

11/21/23 ▲