| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.25 GetAndSetNumber
Funktion um eine Nummer aus einer Datei zu lesen und die Nummer danach automatisch hochzusetzen. Der Dateiname muß angepaßt werden und der erste Wert muß von Hand erzeugt werden. function GetAndSetNumber as string dim f as Integer dim rechnungsdatei as string dim renummer as string rechnungsdatei="c:/re.txt" if FileExists("file:///"&rechnungsdatei) then f = FreeFile() Open "file:///"&rechnungsdatei for Input as #f Line Input #f, renummer close #f f = FreeFile() Open "file:///"&rechnungsdatei for output as #f Print #f, val(renummer)+1 close #f else renummer=0 endif GetAndSetNumber=renummer end function |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009