• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubybathyscaphegamephpguicwindows翻訳pythonomegattwitterframeworkbtronarduinovb.net計画中(planning stage)directxpreviewertestゲームエンジンdom

圧縮フォルダを解凍する。画像が複数含まれるので分割する。フォルダごとにpdfに変換


コミットメタ情報

リビジョン8 (tree)
日時2017-09-30 13:28:46
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- WindowsApp2/WindowsApp1/Form1.vb (revision 7)
+++ WindowsApp2/WindowsApp1/Form1.vb (revision 8)
@@ -43,7 +43,7 @@
4343 '2つに分割し右側をfilename_count.jpeg,左側をfilename_count+1.jpegとして保存する
4444 'tempフォルダをpdf化する
4545 'A4サイズを横向きで
46- Dim psize As New iTextSharp.text.Rectangle(831, 1200)
46+ Dim psize As New iTextSharp.text.Rectangle(1000, 1200)
4747 Dim pdfDocument = New Document(psize, 0, 0, 0, 0)
4848 '出力先のファイル名
4949 Dim makePdfFilePath = $"{dirInfo.Name}.pdf"
@@ -52,9 +52,27 @@
5252 'PDFドキュメントを開く
5353 pdfDocument.Open()
5454 Dim files = System.IO.Directory.GetFiles(path, "*.jpg", System.IO.SearchOption.AllDirectories)
55- For Each filepath As String In files
56- Dim img = iTextSharp.text.Image.GetInstance(New Uri(filepath))
57- If 832 < img.Width Then
55+ Dim fileIdx(files.Count + 1) As Integer
56+ For i = 0 To fileIdx.Count - 1
57+ Dim j = 0
58+ For Each filepath In files
59+ Dim filename = System.IO.Path.GetFileName(filepath)
60+ Dim st = filename.IndexOf("-")
61+ Dim et = filename.IndexOf(".")
62+ Dim countstr = filename.Substring(st + 1, et - st - 1)
63+ Dim count As Integer
64+ If Integer.TryParse(countstr, count) Then
65+ If count = i Then
66+ fileIdx(i) = j
67+ End If
68+ End If
69+ j += 1
70+ Next
71+
72+ Next
73+ For i = 0 To fileIdx.Count - 1
74+ Dim img = iTextSharp.text.Image.GetInstance(New Uri(files(fileIdx(i))))
75+ If 1000 < img.Width Then
5876 img.RotationDegrees = 90
5977 End If
6078 pdfDocument.Add(img)