xbase Version 1.90.331
Code: Alles auswählen
adatloesch = Directory("*.pdf")
for I = 1 to len(adatloesch)
erase(adatloesch[ i, F_NAME ])
next
Hat jemand so etwas schon mal bemerkt oder gehabt?
mfg
Wolfgang
Moderator: Moderatoren
Code: Alles auswählen
adatloesch = Directory("*.pdf")
for I = 1 to len(adatloesch)
erase(adatloesch[ i, F_NAME ])
next
hm ... schon mal mit /W compiliert in der CMD Box ?saul hat geschrieben: ↑Di, 20. Feb 2018 8:04unter Windows 7 funktioniert einwandfrei.Code: Alles auswählen
adatloesch = Directory("*.pdf") for I = 1 to len(adatloesch) erase(adatloesch[ i, F_NAME ]) next
Code: Alles auswählen
adatloesch = Directory("*.pdf")
Code: Alles auswählen
adatloesch := Directory("*.pdf")
wundert mich das es sich bei dir linken lässtsaul hat geschrieben:Unter Windows 10 bricht regelmäßig nach der dritten Datei ab.
Code: Alles auswählen
ERASE (adatloesch[ i, F_NAME ]) // GROSS und Leerzeichen !
Code: Alles auswählen
nErr := FERASE(adatloesch[ i, F_NAME ])
Natürlich geht das auch mit =. In diesem Fall. Sicher ist := als Zuweisungsoperator korrekt. Aber es geht auch ganz klassisch per Verglecihsoperator. Ohne Fehlermeldungen doer Laufzeitprobleme.AUGE_OHR hat geschrieben: ↑Di, 20. Feb 2018 23:48 Fehler Zeile 1muss heissenCode: Alles auswählen
adatloesch = Directory("*.pdf")
Code: Alles auswählen
adatloesch := Directory("*.pdf")
Wieso sollte er ERASE nicht kennen? Gibt es doch. Und der bricht ja auch erst nachd em 3. Durchlauf ab, hat das also schon 2x durchgeführt. Und warum soll er ERASE groß schrieben? Ist unter Xbase++ doch vollkommen egal. Und die Leerzeichen aus der Klammersetzung entfernen? Ist doch alles vollkommen egal und persönlicher Stil (Die Leerzeichen innerhalb der Klammer stören mich auch, aber bei Alaska-Samples sind die Standard - also reiner persönlicher Geschmack).AUGE_OHR hat geschrieben: ↑Di, 20. Feb 2018 23:48wundert mich das es sich bei dir linken lässtsaul hat geschrieben:Unter Windows 10 bricht regelmäßig nach der dritten Datei ab.
er sagt er kennt "erase" nicht was ja richtig ist den so eine Function hast du wahrscheinlich nicht.
also probiere es mal mitCode: Alles auswählen
ERASE (adatloesch[ i, F_NAME ]) // GROSS und Leerzeichen !
Korrekt. Aber es geht ja schließlich beides, ERASE ist also nicht ganz falsch. Nur etwas aufwändiger.AUGE_OHR hat geschrieben: ↑Di, 20. Feb 2018 23:48wobei ich lieber die Function FERASE()verwende da die mir sofort einen Rückgabewert gibt. (muss man sonst über FError() ermitteln)Code: Alles auswählen
nErr := FERASE(adatloesch[ i, F_NAME ])
Hatten wir weiter oben schon.
das hast Du falsch verstanden! Jimmy meinte das Leerzeichen nach Erase und vor der öffnenen Klammer! Erase ist keine Funktion, sondern ein Kommando.Jan hat geschrieben: ↑Mi, 21. Feb 2018 6:45Wieso sollte er ERASE nicht kennen? Gibt es doch. Und der bricht ja auch erst nachd em 3. Durchlauf ab, hat das also schon 2x durchgeführt. Und warum soll er ERASE groß schrieben? Ist unter Xbase++ doch vollkommen egal. Und die Leerzeichen aus der Klammersetzung entfernen? Ist doch alles vollkommen egal und persönlicher Stil (Die Leerzeichen innerhalb der Klammer stören mich auch, aber bei Alaska-Samples sind die Standard - also reiner persönlicher Geschmack).AUGE_OHR hat geschrieben: ↑Di, 20. Feb 2018 23:48Code: Alles auswählen
ERASE (adatloesch[ i, F_NAME ]) // GROSS und Leerzeichen !
Code: Alles auswählen
#include "Directry.ch"
PROCEDURE MAIN
LOCAL adatloesch = Directory("*.bak")
local i
cls
for I := 1 to len(adatloesch)
erase (adatloesch[ i, F_NAME ])
next
wait
return
Ah! OK, das hatte ich nicht direkt so gesehen. Stellt sich mir aber die Frage, ob das wirklich schlimm ist. Denn Wolfgang hat das ja ans Laufen bekommen, sein Fehler ist erst zur Laufzeit, und da auch erst im wiederholten Durchlauf, ausgetreten. Muß ich nachher mal ausprobieren, ob das Leerzeichen wirklich stört.Martin Altmann hat geschrieben: ↑Mi, 21. Feb 2018 6:49das hast Du falsch verstanden! Jimmy meinte das Leerzeichen nach Erase und vor der öffnenen Klammer! Erase ist keine Funktion, sondern ein Kommando.
Yo. Weil Du den Code verändert hast.1 x compile und 1 x link fehler. ODER
Code: Alles auswählen
// d:\test\t.xxx gibt es nicht ;-)
ERASE("d:\test\t.xxx")
DELETE file ("d:\test\t.xxx")
erase d:\test\t.xxx
DELETE file d:\test\t.xxx
? "fieledelete", filedelete ("d:\test\t.xxx") // => .f.
? "deletefile: ", deletefile ("d:\test\t.xxx") // => -2
Code: Alles auswählen
IF x = y
Code: Alles auswählen
IF x := y
Code: Alles auswählen
#include "directry.ch"
function main()
adatloesch = Directory("*.pdf")
for I = 1 to len(adatloesch)
? adatloesch[ i, F_NAME ]
erase(adatloesch[ i, F_NAME ])
next
return nil
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Inkey.ch"
#include "directry.ch"
#include "DLL.ch"
procedure main
local aD, nAnz, i
aD := directory("*.xxx")
nAnz := len(aD)
? "Anzahl Dateien: ",nAnz
for i := 1 to nAnz
erase ("NotExistingFile.PDF")
? i,ad[i,F_NAME]
erase (ad[i,F_NAME])
?? " ",fexists(ad[i,F_NAME])
next
? "ende"
inkey(20)
return
Code: Alles auswählen
? erase (adatloesch[ i, F_NAME ])
das war die PDR 6954 welche Tom angesprochen hatte
Code: Alles auswählen
#include "directry.ch"
function main()
LOCAL adatloesch := Directory("*.obj")
LOCAL I, cFile
for I := 1 to len(adatloesch)
cFile := adatloesch[ i, F_NAME ]
IF FILE(cFile)
IF FErase(cFile) = -1
Msgbox("Fehler beim löschen der Datei: "+cFile, "Error "+ LTRIM(STR( FError() )) )
ENDIF
ENDIF
next
return nil
Code: Alles auswählen
FOR <CounterVar> := <nStart> TO <nEnd> [STEP <nStep>]