提交: 3 - unzipdivpdf (svn)

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

Commit MetaInfo

• 修訂: 3 (tree)
• 時間: 2017-09-10 08:24:57
• 作者: bellyoshi

Log Message

Change Summary

• added: WindowsApp1/WindowsApp1/AppTempDir.vb
• modified: WindowsApp1/WindowsApp1/Form1.vb
• added: WindowsApp1/WindowsApp1/Logger.vb
• added: WindowsApp1/WindowsApp1/LoggerTemplate.vb
• modified: WindowsApp1/WindowsApp1/WindowsApp1.vbproj

差異

--- WindowsApp1/WindowsApp1/AppTempDir.vb	(nonexistent)
+++ WindowsApp1/WindowsApp1/AppTempDir.vb	(revision 3)
@@ -0,0 +1,34 @@
+Imports System.IO
+
+
+Public Class AppTempDir
+    Implements IDisposable
+
+    Public ReadOnly Property Path As String
+
+    Private log As Logger
+
+    Sub New(path As String, logger As Logger)
+        Me.log = logger
+        Me.Path = path
+        Dim unzipSrcFilesPath = path
+        IfExistDirDelete(unzipSrcFilesPath)
+        Directory.CreateDirectory(unzipSrcFilesPath)
+    End Sub
+
+    Private Sub IDisposable_Dispose() Implements IDisposable.Dispose
+        ' IfExistDirDelete(Path)
+    End Sub
+
+    ''' <summary>
+    ''' もしディレクトリがあれば削除
+    ''' </summary>
+    ''' <param name="path"></param>
+    Private Sub IfExistDirDelete(path As String)
+        'tempフォルダを削除する。
+        If Directory.Exists(path) Then
+            Directory.Delete(path, True)
+            log.Info(path + "を削除")
+        End If
+    End Sub
+End Class

--- WindowsApp1/WindowsApp1/Form1.vb	(revision 2)
+++ WindowsApp1/WindowsApp1/Form1.vb	(revision 3)
@@ -1,19 +1,64 @@
 Imports System.IO, com
 Imports iTextSharp.text.pdf
 Imports iTextSharp.text
+Imports WindowsApp1
 
 Public Class Form1
+
+    Private Class Form1Logger
+        Inherits LoggerTemplate
+        Private form As Form1
+        Public Sub New(form As Form1)
+            Me.form = form
+        End Sub
+        Public Overrides Sub output(message As String)
+            form.lstLog.Items.Add(message)
+        End Sub
+    End Class
+    Private log As Logger = New Form1Logger(Me)
+
+
     Private Sub btnExecute_Click(sender As Object, e As EventArgs) Handles btnExecute.Click
-        lstLog.Items.Add("処理開始")
+        log.Info("処理開始")
         Dim allPath = TextBox1.Text '全冊フォルダ
         '全冊フォルダのzipファイルを列挙するし以下を繰り返す。
-        'tempフォルダがあれば削除する。
-        'tempフォルダを作成する。
-        'zipファイルを1つ解凍しtempフォルダに入れる
-        'filename = zipファイルの名前
-        'filename_count = 000
+        Dim files As String() = System.IO.Directory.GetFiles(allPath, "*.zip", System.IO.SearchOption.AllDirectories)
+        If 0 < files.Count Then
+            Dim zipFilePath = files(0) 'todo:test用とりあえず一個だけ試す。
+            zipToPdf(zipFilePath)
+        End If
+
+        log.Info("処理終了")
+    End Sub
+
+    Private Sub zipToPdf(zipFilePath As String)
+        '新規に解凍後の画像のフォルダを作成
+        Using unzipSrcFiles As New AppTempDir(zipFilePath + ".temp1", log)
+            '新規に分割後の画像のフォルダを作成
+            Using divingFilesPath As New AppTempDir(zipFilePath + ".temp2", log)
+                zipToPdf(zipFilePath, unzipSrcFiles, divingFilesPath)
+            End Using
+        End Using
+    End Sub
+
+
+
+    Private Sub zipToPdf(zipFilePath As String, srcFiles As AppTempDir, tempFiles As AppTempDir)
+
+        '解凍処理
+        System.IO.Compression.ZipFile.ExtractToDirectory(zipFilePath, srcFiles.Path)
+
+        Dim filename_count = 0
         'tempフォルダのjpegファイルを列挙し以下を繰り返す
-        '先頭ファイルはそのままとする。000.jpeg
+        Dim files As String() = System.IO.Directory.GetFiles(srcFiles.Path, "*.jpg", System.IO.SearchOption.AllDirectories)
+        For Each filepath As String In files
+            Dim filename = System.IO.Path.GetFileName(filepath)
+            '先頭ファイルはそのままとする。001.jpeg
+            If filename.Contains("001") Then
+                Dim destfilepath = Path.Combine(tempFiles.Path, filename)
+                File.Copy(filepath, destfilepath)
+            End If
+        Next
         '２番目以降のファイルを読み込む。
         '2つに分割し右側をfilename_count.jpeg,左側をfilename_count+1.jpegとして保存する
         'tempフォルダをpdf化する
@@ -20,7 +65,7 @@
         'A4サイズを横向きで
         Dim pdfDocument = New Document(PageSize.A4.Rotate(), 0, 0, 0, 0)
         '出力先のファイル名
-        Dim makePdfFilePath = "d:\test.pdf"
+        Dim makePdfFilePath = zipFilePath.Replace(".zip", "pdf")
         Dim fileStream = New FileStream(makePdfFilePath, FileMode.Create)
         Dim writer = PdfWriter.GetInstance(pdfDocument, fileStream)
         'PDFドキュメントを開く
@@ -28,6 +73,8 @@
         pdfDocument.Add(New Paragraph("test"))
         'PDFドキュメントを閉じる
         pdfDocument.Close()
-        lstLog.Items.Add("処理終了")
+
     End Sub
+
+
 End Class

--- WindowsApp1/WindowsApp1/Logger.vb	(nonexistent)
+++ WindowsApp1/WindowsApp1/Logger.vb	(revision 3)
@@ -0,0 +1,4 @@
+Public Interface Logger
+    Sub ErrorLog(ByVal message As String)
+    Sub Info(ByVal message As String)
+End Interface

--- WindowsApp1/WindowsApp1/LoggerTemplate.vb	(nonexistent)
+++ WindowsApp1/WindowsApp1/LoggerTemplate.vb	(revision 3)
@@ -0,0 +1,19 @@
+Imports WindowsApp1
+
+Public MustInherit Class LoggerTemplate
+    Implements Logger
+
+    Public Sub ErrorLog(message As String) Implements Logger.ErrorLog
+        output("ERROR", message)
+    End Sub
+
+    Public Sub Info(message As String) Implements Logger.Info
+        output("INFO", message)
+    End Sub
+
+    Public Sub output(level As String, message As String)
+        output($"{level}:{message}")
+    End Sub
+
+    Public MustOverride Sub output(message As String)
+End Class