Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

kan dit ook in VB

fdb9602
4 antwoorden
  • 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
  • Dit zou moeten werken:

    C:\WINDOWS\command\find " & Chr(34) & "%%Pages" & Chr(34) & " c:\file1.txt >c:\file2.txt printz.txt
  • 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:
  • 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]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.