• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Punten naar komma's omzetten mbv vbs

Status
Niet open voor verdere reacties.
anton44

anton44

Verenigingslid
Lid geworden
20 mei 2005
Berichten
1.780
Referentie thread = https://www.helpmij.nl/forum/showth...F3%F3r-imprort-in-Excel?p=6276806#post6276806

Bovengenoemde referentie geeft een oplossing voor het wijzigen van scheidingstekens mbv .vbs
Is een soortgelijke oplossing met een aangepast vbs script in te zetten voor punten in bedragen?
Mijn pogingen daartoe faalden = Compilatiefout.
Code: 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objVBS = objFSO.GetFile(WScript.ScriptFullName)

Pad     = objFSO.GetParentFolderName(objVBS)
FileIn  = WScript.Arguments(0)
FileOut = Pad & "\" & "PK_" & split(FileIn,"\")(ubound(split(FileIn,"\")))

Set objReadFile  = objFSO.OpenTextFile (FileIn, 1)
Set objWriteFile = objFSO.CreateTextFile(FileOut,True)

strText = Replace(objReadFile.ReadAll, ",",",")
strText = Replace(strText, ".".",")

objWritefile.Write strText
objWritefile.Close
objReadFile.Close

In het voorbeeld zijn de getallen na "Euro" de bedoelde bedragen.
 

Bijlagen

Als het voldoet dat alle punten worden vervangen door een komma dan kan je onderstaande gebruiken.
Als het alleen voor dat bedragveld na EURO moet worden gedaan wordt het wat lastiger maar zal ook geen probleem zijn:
Code: 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objVBS = objFSO.GetFile(WScript.ScriptFullName)

Pad     = objFSO.GetParentFolderName(objVBS)
FileIn  = WScript.Arguments(0)
FileOut = Pad & "\" & "CVT_" & split(FileIn,"\")(ubound(split(FileIn,"\")))

Set objReadFile  = objFSO.OpenTextFile (FileIn, 1)
Set objWriteFile = objFSO.CreateTextFile(FileOut,True)

strText = Replace(objReadFile.ReadAll, ".",",")

objWritefile.Write strText
objReadFile.Close
objWritefile.Close
 
@edmoor.
Bedankt. Dit script doet ok wat er bedoeld is. In het originele bestand zijn geen andere punten ten onrechte aangepast. Weer wat bijgeleerd.
 
Ok dan.
En nu kan je waarschijnlijk ook zien wat je zelf niet goed deed :)
 
Inderdaag :thumb:
vbs is een nieuw terrein voor mij en klaarblijkelijk de moeite waard dat ook te verkennen.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan