In einem String Anführungszeichen darstellen (PDF Creator)

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    In einem String Anführungszeichen darstellen (PDF Creator)

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

    Einfach mit einem weiterem Anführungzeichen "escapen":

    VB.NET-Quellcode

    1. "C:\b\zusammen.pdf"" ""C:\a\Datei1.txt"" ""C:\a\Datei2.txt"""


    Hättest du aber auch selbständig recherchieren können !
    [GELÖST] Anführungszeichen darstellen in String

    Hallo kwon,

    um Texte mit Leerzeichen zu quoten verwende ich Hilfsfunktionen.

    1. Eine String-Klasse um die VB-Funktionen Left und Right nachzubauen:

    VB.NET-Quellcode

    1. Public Class ClsString
    2. ' Left in VB.NET nachgebaut
    3. Public Function Left(ByVal sText As String,
    4. ByVal nLen As Integer) As String
    6. If nLen > sText.Length Then nLen = sText.Length
    7. Return (sText.Substring(0, nLen))
    8. End Function
    9. ' Right in VB.NET nachgebaut
    10. Public Function Right(ByVal sText As String,
    11. ByVal nLen As Integer) As String
    13. If nLen > sText.Length Then nLen = sText.Length
    14. Return (sText.Substring(sText.Length - nLen))
    15. End Function
    16. End Class
    17. ​


    2. Eine globale Funktion "Add_Quoted"

    VB.NET-Quellcode

    1. ​
    2. Public Function Add_Qouted(ByVal strValue As String, Optional ByVal Allways As Boolean = False) As String
    3. Dim cQuoted As String
    4. Dim myString As New ClsString
    5. cQuoted = Chr(34)
    7. If InStr(1, strValue, " ") > 0 Or Allways = True Then
    8. If myString.Left(strValue, 1) <> cQuoted Then
    9. strValue = cQuoted & strValue
    10. End If
    11. If myString.Right(strValue, 1) <> cQuoted Then
    12. strValue = strValue & cQuoted
    13. End If
    15. End If
    16. Add_Qouted = strValue
    17. End Function


    Der Aufruf erfolgt dann ganz einfach:

    VB.NET-Quellcode

    1. ​
    2. Dim sTest As String = Add_Qouted("Mein Test")


    Vielleicht löst das ja dein Problem.

    Gruß Achilleus

    InStr ist aber VB6, und Add_Qouted ist falsch geschrieben.
    cQuoted = Chr(34) -> cQuoted = """"
    :rolleyes:
    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.

    Hallo VaporiZed,

    mit InStr gebe ich dir recht, besser wäre wohl:

    VB.NET-Quellcode

    1. ​If strValue.IndexOf(" ") > -1 Or Allways = True Then


    Ups, und das Chr(34) auch aus VB6 stammt, war mir gar nicht bewusst. ;(

    Danke für den Hinweis. Die Hilfsfunktion nutzte ich schon seit Urzeiten und hatte immer gute Dienste geleistet.
    Ich habe diese auch gleich abgeändert. Danke für den Hinweis. :thumbup:

    Achilleus schrieb:

    ​If strValue.IndexOf(" ") > -1 Or Allways = True Then
    Da bekomme ich leichte Augenschmerzen
    Besser wäre

    VB.NET-Quellcode

    1. ​If Allways OrElse strValue.IndexOf(" ") > -1 Then
    Es ist schneller ein Boolean zu testen, als einen String zu durchsuchen.

    Aber die Schreibweise von ​Allways tut mir noch mehr weh.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hallo,

    danke für die Antworten!!

    Allerdings komme ich noch nicht klar...

    VB.NET-Quellcode

    1. For i = 0 To anzL - 1
    2. pfad = Liste.ElementAt(i)
    3. c = $"""{pfad}"""
    4. ListeMitPfaden.Add(c)
    5. Next

    Habe Zeichenfolgeninterpolation online gefunden und herumprobiert (siehe obiges).
    Allerdings ist, nachdem ich den Inhalt von ListeMitPfaden verbunden habe, das der Inhalt:

    VB.NET-Quellcode

    1. ListeMerged """C:\a\Datei1.txt"" ""C:\a\Datei2.txt"" ""C:\a\Datei3.txt"""


    Es wäre toll, wenn mir jemand helfen könnte...

    kwon schrieb:

    Allerdings ist, nachdem ich den Inhalt von ListeMitPfaden verbunden habe, das der Inhalt
    Das ist der Inhalt, den du im Debugger siehst, weil der zur Kennzeichnung des Strings die Quotes dazu fügt.
    Wenn du den String ausgibst in eine Datei oder mit Debug.Print sind die äußeren Quotes weg.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende