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