anoniem Geplaatst: 21 juni 2002 Delen Geplaatst: 21 juni 2002 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 Quote Link naar reactie
anoniem Geplaatst: 21 juni 2002 Auteur Delen Geplaatst: 21 juni 2002 Dit zou moeten werken: C:\WINDOWS\command\find " & Chr(34) & "%%Pages" & Chr(34) & " c:\file1.txt >c:\file2.txt printz.txt Quote Link naar reactie
anoniem Geplaatst: 22 juni 2002 Auteur Delen Geplaatst: 22 juni 2002 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: Quote Link naar reactie
anoniem Geplaatst: 22 juni 2002 Auteur Delen Geplaatst: 22 juni 2002 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] Quote Link naar reactie
anoniem Geplaatst: 23 juni 2002 Auteur Delen Geplaatst: 23 juni 2002 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 :( Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen