| |
|
|
Peter Gückstock | Salut, wieder une Anfängerfrage: j'ai dans mon Profanprogramm une TXT-Dossier geladen, qui je auparavant avec dem Windows-Editor (vide) gespeichert habe. dans cet Dossier habe je dedans des Profanprogramms Cordes geschrieben, qui je dans Profan aussi wieder magasin et Imprimer sichtbar faire peux. Öffne je mais qui TXT-Dossier avec dem Windows-Editor, ist cet Dossier vide. cet Dossier soll nämlich später sur Windowsprogramme trop lesen et trop drucken son. Ist cela so eigentlich possible?
je verwende Profan 6.6
Salut Peter |
|
|
| |
|
|
|
Jac de Lad | Speicherst du vous dans Profan aussi ab? |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.02.2007 ▲ |
|
|
|
|
Peter Gückstock | Doit cela Abspeichern im Programmcode avoir lieu? j'ai pour keinen Befehl trouvé. J'ai pensé , dass avec dem Sauver im Profaneditor et anschließendem Schnellstart aus dem Editor heraus qui données dans cet Dossier geschrieben volonté. |
|
|
| |
|
|
|
| @allô Peter KompilierenMarqueSéparation avec cette kleinen Procedur speichere je toujours alle Eingaben dans un Text-Dossier ab et es funktioniert parfait |
|
|
| |
|
|
|
Jac de Lad | oui c'est ca! |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.02.2007 ▲ |
|
|
|
|
Peter Gückstock | Vielen Dank Horst, j'ai Votre Proc pour mon Listbox ajusté (getcount et getstring$). Es funktioniert, mais dans qui Textdatei erhalte je toujours seulement den letzten phrase aus qui Listbox, dans qui Boucle müßten doch alle Sätze jusqu'à zum Wert, qui de getcount retour wird, lire volonté. et encore zum Verständnis, woher sais Profan maintenant, dass avec Dossier$ mon TXT Dossier gemeint ist?
Sorry pour qui Nerverei, mais je suis toujours seulement froh, si je alles verstanden habe. |
|
|
| |
|
|
|
Jörg Sellmeyer | Hi Peter, qui Variable Dossier$ dois Du naturellement avec dem Namen Deiner Txt-Dossier füttern. Laisser Dossier$=C:\MeinProgramm\MeineDatei.txt
Poste doch simple la fois Deinen Code, ensuite peux on besser voyons, wos hakt.
Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.02.2007 ▲ |
|
|
|
|
| @Peter
Jörg hat droite - un kleines Beispiel wäre hilfreich ! |
|
|
| |
|
|
|
Peter Gückstock | ici un partie aus dem Listing
ici erstmal qui Proc zum écrivons den Kassenbon dans un TXT zum späteren Kundenausdruck KompilierenMarqueSéparation-------Drucken--------
proc Bon_Druck
let datei$=C:Eigene DateienProfanProjekteKassenbuchKassenbon.txt
Assign #2,Datei$
rewrite #2
Nr%=0
Max%=GetCount(BBox&)
print max%
WhileNot Nr%>Max%
Print #2,GetString$(BBox&,Nr%)
Inc Nr%
endwhile
Close #2
endproc
im folgenden Teil werden aus der mit einer DBF Datei gefüllten Listbox mehrere gewünschte Zeilen in eine andere Listbox übernommen. (soll Kassenbon sein)
Jede Zeile, die in den Kassenbon übernommen wurde, soll automatisch in eine TXT geschrieben werden, um zum Abschluß alle während des Tages in den Kassenbon übernommenen Sätze zur Auswertung bzw. zur Inventur zur Verfügung zu haben. (vielleicht bekomme ich daraus eine csv Datei hin )
Zusätzlich soll aber der gesamte Inhalt der Kassenbon-Listbox ineine zweite TXT Datei geschrieben werden, um diesen Kassenbon für den Kunden ausdrucken zu können
If @GetFocus(zumBon%)
Long Lv_Item#,8 = 0 auf erste Spalte setzen
GetSelectedItems 0
Hole_Zeile 0
Let Feld$ = @$(0) zusammengesetzter Text der Zeile
Let Feld$ = @Trim$(@Substr$(Feld$,1, ))+ +
@Trim$(@Substr$(Feld$,2, ))+ +
@Trim$(@Substr$(Feld$,3, ))+ +
Zl$ = Zeile-+@Format$(00,(Zl&+1)) übersetze auch noch die Zeilennummer
LONG Tb#,0 =-5
LONG Tb#,4 =-60
Long Tb#,8 =5
Posten$=str$(Posten!)
@SendMessage(BBox&,$0192,2,Tb#) Parameter 3 gibt die Anzahl der Tabstopps an !!!
Epreis$=@Substr$(Feld$,3,)
Artikel$=@Substr$(Feld$,2,)
Posten$=@substr$(Feld$,4,)
Menge%=0
Menge%=@Input$(Anzahl:,ausgewählter Artikel,Menge%)
Epreis!=@val(EPreis$)
Posten!=Menge%*EPreis!
Decimals 2
Summe!=Summe!+Posten!
Decimals 2
Bon$=str$(Menge%),+chr$($9)+Artikel$+chr$($9)+EPreis$+€ +chr$($9)+str$(Posten!)+€
@len(Artikel$)=20
Addstring(Bbox&,str$(Menge%)+chr$($9)+Artikel$+chr$($9)+EPreis$+€ +chr$($9)+str$(Posten!)+€)
Addstring(UBox&,str$(Summe!))
EndIf
----Fallunterscheidung durch Bediener------
if getfocus(Kassieren%)
Rückgeld
summe
endif
if getfocus(nächsterKd%)
ergebn%=Messagebox(Kassierung schon durchgeführt?,ACHTUNG,308)
if @equ(ergebn%,6)
nächster_Kunde
else getfocus(dlg%)
endif
endif
if getfocus(Eintrag%)
declare Line$,Line%,Teil$,DelPreis!,Storno$
Line%=GetCurSel(BBox&)
Line$=@GetString$(BBox&,Line%)
Teil$=SubStr$(Line$,4, )
DelPreis!=val(Teil$)
decimals ss=s2>2
somme!=somme!-DelPreis!
|
|
|
| |
|
|
|
Peter Gückstock | Relatif à la écrivons des Listboxinhalts dans qui TXT habe je hinbekommen. Bleibt seulement encore cela qui Frage, comment peux je données anhängen, sans qui TXT auparavant trop effacer? Append funktioniert pas. |
|
|
| |
|
|
|
| Du musst den Text auparavant auslesen et pour dem neuen Zusatz wieder einlesen et Sauver. - ici est un kleines Editor-Programme - cela peux Du pour Votre Zwecke bestimmt paraphraser - viel Erfolg KompilierenMarqueSéparationDECLARE pfad$,datei$,text$
pfad$=GETDIR$(@)
print pfad$
datei$=pfad$+\beispiel.txt Hier Dateinamen angeben
DECLARE edit&
DECLARE nr%,max%,ende%,EE%,save%
DECLARE datei_groesse%
DECLARE bereich#
EE%=0
----------------------------------------------------
PROC SPEICHERN
ASSIGN #1,datei$
REWRITE #1
Nr% = 0
Max% = GetLineCount(edit&)
WhileNot Nr% > Max%
Print #1,GetLine$(edit&,Nr%)
Inc Nr%
ENDWHILE
CLOSE #1
ENDPROC
---------------------------------------------------
PROC EDITOR
edit&=CREATE(MULTIEDIT,%HWND,text$,10,50,615,-370)
datei_groesse%=FILESIZE(datei$) Grösse der Datei
DIM Bereich#,datei_groesse%+5 Dimensionieren + 5 Byte
READTEXT Bereich#,datei$
SENDMESSAGE(edit&,$000C,0,Bereich#)
SENDMESSAGE(edit&,$00B1,datei_groesse%,-1)
SENDMESSAGE(notiz_edit&,$00C5,2500,0) Der dritte Parameter gibt die Zeichenanzahl an
DISPOSE bereich#
ENDPROC
################## Programm-Anfang
IFNOT FILEEXISTS(datei$) wenn keine Datei da ist, wird eine erstellt
ASSIGN #1,datei$
REWRITE #1
CLOSE #1
ENDIF
-----------------------------------------------------
CLS
ende%=CREATE(BUTTON,%HWND,Beenden,10,5,100,35)
save%=CREATE(BUTTON,%HWND,Speichern,200,5,100,35)
EDITOR
SetFocus(edit&)
WHILENOT EE%
WAITINPUT
Case GETFOCUS(ende%):END
Case GETFOCUS(save%):SPEICHERN
ENDWHILE lass=s4 href='./../../funktionsreferenzen/XProfan/end/'>FIN
|
|
|
| |
|
|
|
Jörg Sellmeyer | allô Peter, pourquoi sollte Append nichtfunktionieren? tu dois Deinen Text dessus entsprechend annpassen. alors: KompilierenMarqueSéparation
[offtopic]allô Horst, encore zurück de qui Reparatur ou bien la hâte Dus déménagé?[/offtopic] |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.02.2007 ▲ |
|
|
|