Dateiverarbeitung: Betrag auslesen & neuberechnen

bi0nic · 9. Januar 2007, 16:34

Hallo VB-Fans!

Ich bin in VB noch nicht so fit und mit Dateiverarbeitung habe ich prinzipiell noch keine Erfahrung. Ich möchte ein Programm schreiben, welches aus Textdateien einen Betrag (Anteil) raus liest und dann davon 16% (MWST) errechnet und dann den Betrag. Kurz das Programm soll die MWST neu berechnen, da dort ein Fehler aufgetreten ist. Ich zeig am besten wie den Vorher-Nachher-Vergleich.

Vorher:

VB.NET-Quellcode

Ihr Anteil wie vereinbart 10,0000 % 1.460,82 EUR
zuzüglich MWST 16,0000 % 277,56 EUR
Gesamtbetrag 1.738,38 EUR

Nachher:

VB.NET-Quellcode

Ihr Anteil wie vereinbart 10,0000 % 1.460,82 EUR
zuzüglich MWST 16,0000 % 233,73 EUR
Gesamtbetrag 1694,55 EUR

Ich hoffe ihr könnt mir helfen einen Lösungsansatz zu finden.

Gruß, bi0nic

Mad Andy · 9. Januar 2007, 21:06

Hi!

Dateiverarbeitung wird irgendwo im Galileo Openbook erläutert.
Noch eine Info: um %-Rechnungen durchzuführen, musst du / 100 * x verwenden. Es gab schon leute, die das mit dem % versucht haben und daran gescheitert sind

Pascal · 9. Januar 2007, 21:12

Im übrigen würde es sich anbieten, mit 19% zu rechnen. Sonst kannst Du bald nochmal was neues schreiben...

Mad Andy · 9. Januar 2007, 21:30

Im übrigen würde es sich anbieten, mit 19% zu rechnen. Sonst kannst Du bald nochmal was neues schreiben...

*g* bei uns in Österreich ist das anders...
Die Steuern werden nicht erhöht sondern einfach das Schulbudget gesenkt XD

@ Agent: Sorry für diese OT-Meldung, das war aber einfach nötig...

bi0nic · 10. Januar 2007, 09:33

Nene 16% ist schon richtig ich, da die Rechnungen von Dezember sind.

Nachtrag:
Ein Kollege hat das Problem in VBS gelöst.

VB.NET-Quellcode

option explicit
Const ForReading = 1
Const ForWriting = 2
const StartDir = "D:\DatenJT\020_Work\XML16%MWST\Original"
const OldDir = "D:\DatenJT\020_Work\XML16%MWST\Old"
const BadDir = "D:\DatenJT\020_Work\XML16%MWST\Bad"
const ChangedDir = "D:\DatenJT\020_Work\XML16%MWST\Changed"
const SuchNetto = "vereinnahmte Gebühren *[0-9.,]+ EUR"
const FindNetto = "vereinnahmte Gebühren *([0-9.,]+) EUR"
const SuchMWST = "zuzüglich MWST [0-9,. %]* EUR"
const SuchBrutto = "Gesamtbetrag [0-9,. %]* EUR"
const MwSt = 0.16
'
' Variablen festlegen
'
dim cTEXT
dim oDIR
dim oCONV
dim aFILES
dim cFILE
dim cNAME
dim cREPLACE
'
' Objecte definieren
'
'
' Dateiliste einlesen
'
aFILES = GetFileList(StartDir)
'
' Verzeichnisse anlegen
'
MkDir OldDir
MkDir BadDir
MkDir ChangedDir
'
' Hauptschleife
'
dim cNETTO
dim nNETTO
dim nMWST
dim nBRUTTO
for each cFILE in aFILES
cTEXT = ReadTextFile(StartDir & "\" & cFILE)
if FindText(SuchNetto, cTEXT, true) then
cNETTO = GetSubMatch(FindNetto, cTEXT, true)
nNETTO = CDbl(cNETTO)
nMWST = nNETTO * MwSt
nBRUTTO = nNETTO + nMWST
cREPLACE = "zuzüglich MWST " & left(FormatNumber(MwSt * 100, 4) & " %" & space(100),20) & right(space(100) & FormatNumber(nMWST, 2, 0, 0, -1) & " EUR", 30)
ReplaceText SuchMWST, cREPLACE, cTEXT, true, false
cREPLACE = "Gesamtbetrag " & right(space(100) & FormatNumber(nBRUTTO, 2, 0, 0, -1) & " EUR", 52)
ReplaceText SuchBrutto, cREPLACE, cTEXT, true, false
WriteTextFile ChangedDir & "\" & BaseName(cFILE), cTEXT
''MoveFile StartDir & "\" & cFILE, OldDir & "\" & BaseName(cFILE)
else
wscript.echo "INFO: Keine Gebühren in der Datei " & cFILE
end if
next
'
' EOP
'
sub MkDir(byref cDIR)
dim oFSO
set oFSO = CreateObject("Scripting.FileSystemObject")
if not oFSO.FolderExists(cDIR) then
oFSO.CreateFolder(cDIR)
end if
set oFSO = nothing
end sub
function BaseName(byref cFILE)
dim oFSO
set oFSO = CreateObject("Scripting.FileSystemObject")
BaseName = oFSO.GetFileName(cFILE)
set oFSO = nothing
end function
sub MoveFile(byref cFILE, byref cDIR)
dim oFSO
set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile cFILE, cDIR
set oFSO = nothing
end sub
function GetFileList(byref cDIR)
dim oFSO
dim dDIR
dim fFIL
dim cTEXT
dim aFILES()
dim oFILES
dim nCOUNT
cTEXT = ""
set oFSO = CreateObject("Scripting.FileSystemObject")
Set dDIR = oFSO.GetFolder(cDIR)
set oFILES = dDIR.Files
redim aFILES(oFILES.count -1)
nCOUNT = 0
for each fFIL in oFILES
aFILES(nCOUNT) = fFIL.Name
nCOUNT = nCOUNT + 1
next
GetFileList = aFILES
end function
sub ReadTextFile2Directory(byval cFILE, byref oDIR)
dim oFSO
dim fFIL
dim cTEXT
dim aTEXT
set oFSO = CreateObject("Scripting.FileSystemObject")
set fFIL = oFSO.OpenTextFile(cFILE, ForReading)
while not fFIL.AtEndOfStream
aTEXT = split(fFIL.Readline, "|")
if not oDIR.exists(aTEXT(0)) then
oDIR.add aTEXT(0), aTEXT(1)
end if
wend
fFIL.Close
set fFIL = nothing
set oFSO = nothing
end sub
function ReadTextFile(byval cFILE)
dim oFSO
dim fFIL
set oFSO = CreateObject("Scripting.FileSystemObject")
set fFIL = oFSO.OpenTextFile(cFILE, ForReading)
ReadTextFile = fFIL.ReadAll
fFIL.Close
set fFIL = nothing
set oFSO = nothing
end function
sub WriteTextFile(byval cFILE, byref cTEXT)
dim oFSO
dim fFIL
set oFSO = CreateObject("Scripting.FileSystemObject")
set fFIL = oFSO.OpenTextFile(cFILE, ForWriting, True)
fFIL.Write(cTEXT)
fFIL.Close
set fFIL = nothing
set oFSO = nothing
end sub
sub ReplaceText(byval cPATT, byval cREPL, byref cTEXT, byval bIGCA, byval bGLOB)
dim oREG
set oREG = New RegExp
oREG.Pattern = cPATT
oREG.IgnoreCase = bIGCA
oREG.Global = bGLOB
cTEXT = oREG.Replace(cTEXT, cREPL)
set oREG = nothing
end sub
function FindText(byval cPATT, byref cTEXT, byval bIGCA)
dim oREG
set oREG = New RegExp
oREG.Pattern = cPATT
oREG.IgnoreCase = bIGCA
FindText = oREG.Test(cTEXT)
set oREG = nothing
end function
function GetSubMatch(byval cPATT, byref cTEXT, byval bIGCA)
dim oREG
dim oMATCHES
dim oMATCH
set oREG = New RegExp
oREG.Pattern = cPATT
oREG.IgnoreCase = bIGCA
set oMATCHES = oREG.Execute(cTEXT)
set oMATCH = oMATCHES(0)
GetSubMatch = oMATCH.SubMatches(0)
set oREG = nothing
set oMATCHES = nothing
set oMATCH = nothing
end function

Dateiverarbeitung: Betrag auslesen & neuberechnen

Dateiverarbeitung: Betrag auslesen & neuberechnen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

1 Benutzer hat hier geschrieben