Italia
Fonte/ Codesnippets

flexible Zeilenformatierung

 

GDL
Hallöle,

Abfallprodukt aus meinem Registrierkassenprojekt.

Nur mit einfachen XProfanbefehlen ohne Befehlsverschachtelungen zusammengefummelt.

Braucht wahrscheinlich eh niemand, stells aber trotzdem mal ins Cafe zum Codeverbessern, falls es doch mal jemand braucht.
KompilierenMarkierenSeparieren
declare bereich#,b$,pos&[50],was$[50],m%,durchlauf%
dim bereich#,1000'Absichtlich größer wie gebraucht
Char bereich#,0 = space$(200)'Bereich mit Leerzeichen füllen
cls

proc formatieren

    Char bereich#,0 = space$(200)'Bereich mit Leerzeichen füllen
    m%=1

    whilenot m% > durchlauf%

        char bereich#,pos&[m%]=was$[m%]
        inc m%

    wend

endproc

assign #1,"test.txt"
rewrite #1
'Testbeispiele
'Durchgang 1
durchlauf%=3
pos&[1]=10
pos&[2]=20
pos&[3]=40
was$[1]="Hugo"
was$[2]="Mustermann"
was$[3]="München"
formatieren
b$=Char$(bereich#,0,60)
print b$
print #1,b$
'Durchgang 2
was$[1]="H."
was$[2]="Dohle"
was$[3]="Ried"
formatieren
b$=Char$(bereich#,0,60)
print b$
print #1,b$
'Andere Formatierung
durchlauf%=5
pos&[1]=10
pos&[2]=15
pos&[3]=20
pos&[4]=25
pos&[5]=60
was$[1]="A"
was$[2]="B"
was$[3]="C"
was$[4]="D"
was$[5]="es funzt"
formatieren
b$=Char$(bereich#,0,100)
print b$
print #1,b$
'=========================
'9 Positionen mit immer gleichen Abstand
durchlauf%=9
m%=1

whilenot m% > 9

    pos&[m%]=m%*5'Die Ziffer hinter dem * bestimmt den Abstand
    was$[m%]=chr$(m%+48)
    inc m%

wend

formatieren
b$=Char$(bereich#,0,100)
print b$
print #1,b$
'==============================
close #1
winexecwait("notepad.exe test.txt",1)'Nur wenn notepad vorhanden ist !!
assign #1,"text.txt"
erase #1
waitinput
dispos
bereich# end

Grüßle
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
07.05.2015  
 



Habs mal zu den Codes getan:  [...] 
 
07.05.2015  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

5.259 Views

Untitledvor 0 min.
Walter26.12.2022
RudiB.26.04.2022
p.specht20.11.2021
Uwe Lang20.11.2021
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

iF (1x)
GDL (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie