kan dit ook in VB

[anoniem]

in windows zit het commando find. Een opdrachtregel ziet er bv als volgt uit: C:\WINDOWS\command\find "%%Pages" c:\file1.txt >c:\file2.txt printz.txt . als ik dit mbv shell in vb probeer te doen gaat het mis bij "%%pages" kan dit op een of andere manier toch in vb?? FB

[anoniem]

Dit zou moeten werken: C:\WINDOWS\command\find " & Chr(34) & "%%Pages" & Chr(34) & " c:\file1.txt >c:\file2.txt printz.txt

[anoniem]

Het werkt nu bijna, het find commando doet het nu, maar de resultaten wegschrijven (> c:/file.txt) werkt nog niet. kan dit ook nog of, dat is nog beter, kan het resultaat rechtstreeks in vb ingelezen worden? FB :roll:

[anoniem]

Volgens mij moet printz.txt weg. Maar misschien heb je wat aan de volgende code.... [code:1:02516dce7f]Dim strFind As String Dim strReplace As String Dim strDestination As String Dim strSource As String Dim strFilter strFind = "Hello" 'What To find strReplace = "Goodbye" 'What To replace it With strDestination = "c:\temp" 'Where To put the files once they have been modified strSource = "c:\output" 'Where To Get the files strFilter = "*.txt" 'wildcards 'verification complete Dim parse As String Dim hold As String 'FIND AND REPLACE sdir = Dir(strSource & "\" & fMainForm.txtIncludeFilter) Do While sdir <> "" Open fMainForm.txtSource & "\" & sdir For Input As #1 Do While Not EOF(1) Line Input #1, parse hold = hold & Replace(parse, fMainForm.txtReplace, fMainForm.txtFind) Loop Loop Open fMainForm.txtSource & "\" & sdir For Output As #1 Print #1, hold Close #1 hold = "" parse = "" sdir = Dir() Loop[/code:1:02516dce7f]

[anoniem]

klopt, printz.txt moet weg. maar jouw code is niet wat ik zoek. Als ik het find commando uitvoer dan maakt het een textbestandje met daarin alle regels waarin de string die je ingeeft voorkomt. In mijn geval oa "%%pages : 22" . aangezien dit een printerfile is kan ik hier uitlezen dat het document 22 pagina's heeft. Ik hoef dus niets te vervangen. Maar toch bedankt. FB :(