Programm mit Argumenten starten

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von kwon.

    Programm mit Argumenten starten

    Hallo,
    ich würde gerne das Programm PDFCreator mit Argumenten starten.
    Ich habe mich an einem Beispiel aus dem Forum orientiert:

    VB.NET-Quellcode

    1. Dim pfadEinlesen As String = "D:\Daten\aktuell_nicht_in_Cloud\Scan-Ordner\_in pdf umwandeln\"
    2. Dim pfadFertig As String = "D:\Daten\aktuell_nicht_in_Cloud\Scan-Ordner\_pdf erzeugt\"
    3. Dim p As New Process
    4. 'p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    5. p.StartInfo.FileName = "C:\Program Files\PDFCreator\pdfcreator-cli.exe"
    6. p.StartInfo.Arguments = "PrintFile /File=" & pfadEinlesen & "gut.txt/ OutputFile=" & pfadFertig & "gut.pdf"
    7. p.Start()


    Leider öffnet und schließt sich die cmd nur kurz...

    Auf der Seite von PDFCreator wird folgende Syntax vorgeschlagen:
    pdfcreator-cli.exe PrintFile /File="C:\test.doc" /OutputFile="C:\test.pdf"

    Was mache ich falsch?
    Ich bitte um Hilfe...

    Wenn Du in Zeile#7 eine Haltepunkt setzt und mal bei p.StartInfo.Arguments reinschaust, wirst Du sehen, dass Du drinhast:
    C:\Program Files\PDFCreator\pdfcreator-cli.exe PrintFile /File=D:\Daten\aktuell_nicht_in_Cloud\Scan-Ordner\_in pdf umwandeln\gut.txt/ OutputFile=D:\Daten\aktuell_nicht_in_Cloud\Scan-Ordner\_pdf erzeugt\gut.pdf
    die Syntax aber verlangt
    C:\Program Files\PDFCreator\pdfcreator-cli.exe PrintFile /File="D:\Daten\aktuell_nicht_in_Cloud\Scan-Ordner\_in pdf umwandeln\gut.txt" /OutputFile="D:\Daten\aktuell_nicht_in_Cloud\Scan-Ordner\_pdf erzeugt\gut.pdf"
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed Jou.
    @kwon Pfade, in denen Leerzeichen vorkommen, müssen on Apostrophen eingeschlossen sein, sonst werden sie als separate und somit falsche Argumente erkannt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,
    das Umwandeln von 1 Datei habe ich geschafft, beim Umwandeln (zusammenfügen) von mehreren Dateien bräuchte ich noch etwas Hilfe:
    Es geht um den Else-Zweig (anzdateien<>1, MergeFiles):

    Das soll im Programm ankommen:
    pdfcreator-cli.exe MergeFiles /OutputFile="C:\test-converted.pdf" "C:\file1.pdf" "C:\file2.ps" (bei 2 Dateien)
    pdfcreator-cli.exe MergeFiles /OutputFile="C:\test-converted.pdf" "C:\file1.pdf" "C:\file2.ps" "C:\file3.ps" (bei 3 Dateien) usw...

    Dazu erzeuge ich stringEin:
    bei 2 Dateien ist 1 trennendes Leerzeichen in stringEin vorhanden
    bei 3 Dateien sind 2 trennende Leerzeichen in stringEin vorhanden, usw...

    Leider bekomme ich es (nach langem versuchen) nicht hin...

    Könntet ihr mir bitte einen Hinweis geben, wie ich das mit den trennenden Leerzeichen hinbekommen kann?
    (ich meine stringEin, dass 3 Dateien 2 Leerzeichen haben, oder 5 Dateien 4 Leerzeichen haben...)

    Vielen Dank!


    VB.NET-Quellcode

    1. ​
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Dim pfadEinlesen As String = "C:\a\"
    4. Dim pfadFertig As String = "C:\b\"
    5. Dim stringEin As String
    6. Dim ordnereinlesen As New DirectoryInfo(pfadEinlesen)
    7. 'Dim files() As String = IO.Directory.GetFiles(pfadEinlesen)
    8. Dim dateinameA As String = "", dateinameB As String = ""
    9. Dim pdfName As String
    10. Dim p As Process = New Process
    11. Dim anzDateien As Integer = 0
    12. 'Dim WshNetwork As Object,
    14. pdfName = InputBox("Wie soll das pdf heißen?")
    16. 'stringEin erzeugen
    17. For Each file In ordnereinlesen.GetFiles
    18. If dateinameA = "" Then
    19. dateinameA = file.FullName
    20. Else
    21. dateinameA = file.FullName & "' '"
    22. dateinameB = dateinameA & file.FullName
    23. End If
    24. Next
    25. stringEin = dateinameB
    26. MessageBox.Show(stringEin)
    28. anzDateien = ordnereinlesen.GetFiles.Count
    29. If anzDateien = 1 Then
    30. p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    31. p.StartInfo.FileName = "C:\Program Files\PDFCreator\pdfcreator-cli.exe"
    32. p.StartInfo.Arguments = " PrintFile /File=" & stringEin & " /OutputFile=" & pfadFertig & pdfName & ".pdf"
    33. p.Start()
    34. Else
    35. p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    36. p.StartInfo.FileName = "C:\Program Files\PDFCreator\pdfcreator-cli.exe"
    37. p.StartInfo.Arguments = " MergeFiles /OutputFile=" & pfadFertig & pdfName & ".pdf" & stringEin
    38. p.Start()
    39. End If
    40. End Sub

    Hallo,

    ich benötige noch etwas Hilfe...
    Habe es jetzt stundenlang probiert, gegoogled, ...
    Ich bekomme es einfach nicht hin...

    Ich würde gerne mit dem PDF Creator aus Dateien PDFs per Skript erstellen - u.a. aus mehreren Dateien 1 PDF erstellen.
    Aus einer Datei 1 PDF erstellen habe ich hinbekommen (Zeile(59-62)).
    Mit dem Erstellen von 1 PDF aus mehreren Dateien habe ich Schwierigkeiten.

    In Zeile 68 muss ich folgenden String erzeugen:

    VB.NET-Quellcode

    1. " MergeFiles /OutputFile="C:\b\zusammen.pdf" "C:\a\Datei1.txt" "C:\a\Datei2.txt""

    Unter p.StartInfo.Arguments liegt aber vor:

    VB.NET-Quellcode

    1. " MergeFiles /OutputFile=C:\b\zusammen.pdf C:\a\Datei1.txt C:\a\Datei2.txt"


    Ich bekomme es einfach nicht hin in dem String Anführungszeichen darzustellen - in Zeile 61 habe ich es geschafft...

    Ich bitte um Hilfe...

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.IO
    3. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim i As Integer = 0, k As Integer = 0, pdfName As String, ext(6) As String, ListeMerged As String, d As Integer = 0
    6. Dim Liste As New List(Of String), anzL As Integer = 0, AnzdateiOkay As Integer = 0, anzDateien As Integer = 0
    7. Dim pfadEinlesen As String = "C:\a\"
    8. Dim pfadFertig As String = "C:\b\"
    9. Dim ordnereinlesen As New DirectoryInfo(pfadEinlesen)
    10. 'Dim file As FileInfo
    11. Dim files = ordnereinlesen.GetFiles()
    12. Dim p As Process = New Process
    13. Dim dateiOkay As Boolean = False
    15. ext(0) = "pdf"
    16. ext(1) = "doc"
    17. ext(2) = "txt"
    18. ext(3) = "xls"
    19. ext(4) = "jpg"
    20. ext(5) = "jpeg"
    21. ext(6) = "tif"
    23. pdfName = InputBox("Wie soll das pdf heißen?")
    25. 'Drucker setzen
    26. SetDefaultPrinter("PDFCreator")
    28. 'Anzahl verwertbarer Dateien zählen, Liste erzeugen
    29. For Each file In files
    30. For k = 0 To 6
    31. If file.Extension.ToLower.Contains(ext(k)) Then
    32. Liste.Add(file.FullName.ToString())
    33. anzDateien += 1
    34. Exit For
    35. End If
    36. Next
    37. Next
    39. anzL = Liste.Count
    41. 'Fehler vorhanden?
    42. For d = 0 To anzL - 1
    43. dateiOkay = False
    44. For k = 0 To 6
    45. If Liste.ElementAt(d).Contains(ext(k)) Then
    46. 'datei okay
    47. dateiOkay = True
    48. Exit For
    49. End If
    50. Next
    51. If dateiOkay = True Then
    52. AnzdateiOkay += 1
    53. End If
    54. Next
    56. If AnzdateiOkay = anzL Then
    57. If anzL = 1 Then
    58. ListeMerged = Liste.ElementAt(0)
    59. p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    60. p.StartInfo.FileName = "C:\Program Files\PDFCreator\pdfcreator-cli.exe"
    61. p.StartInfo.Arguments = " PrintFile /File=""" & ListeMerged & """ /OutputFile=""" & pfadFertig & pdfName & ".pdf"""
    62. p.Start()
    63. End If
    64. If anzL > 1 Then
    65. ListeMerged = String.Join(" ", Liste)
    66. p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    67. p.StartInfo.FileName = "C:\Program Files\PDFCreator\pdfcreator-cli.exe"
    68. p.StartInfo.Arguments = " MergeFiles /OutputFile=" & pfadFertig & pdfName & ".pdf" & " " & ListeMerged
    69. p.Start()
    70. End If
    71. Else
    72. MessageBox.Show("Mindestens 1 Datei kann nicht konvertiert werden.")
    73. Exit Sub
    74. End If
    76. 'alten Drucker setzen
    77. SetDefaultPrinter("Canon MX490 series Printer")
    79. End Sub
    80. <DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)>
    81. Public Shared Function SetDefaultPrinter(Name As String) As Boolean
    82. End Function
    83. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kwon“ ()