Makros und Tools

GetAndSetNumber

Funktion um eine Nummer aus einer Datei zu lesen und die Nummer danach automatisch hochzusetzen.

Der Dateiname muss angepaßt werden und der erste Wert muss von Hand erzeugt werden.

Basic

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