PictureTagger/SB-PictureTagger/Modul_Tools.vb

Option Explicit On
Imports System.IO

Module Modul_Tools

    'Methonden_Index:
    '1.Datei- und Ordnerdialoge
    '  1.1 FolderBrowserDialog              <-- in Work (Main works)
    '  1.2 OpenFileDialog                   <-- in Work (Don't work)
    '  1.3 SaveFileDialog                   <-- in Work

    '2.Config Load/Save
    '   2.1 From INI
    '       2.1.1 Config_INI_ReadValue
    '       2.1.2 Config_INI_WriteValue
    '           ExampleConf = Config_INI_ReadValue(FilePath, Section, Key, [DefaultWert])
    '           [Error =] Config_INI_WriteValue(FilePath, Section, Key, Wert)
    '   2.2 From My CMD seting Files

    '3.PortableMode
    '   3.1 PortableModeTrue
    '       Übergabe: ConfigFile                            Return: (PortableMode=True/False)
    '   3.2 PortableMode
    '           Übergabe: ConfigFile [WorkDir] [AppName]    Return: (PortableMode=True/False)
    '           ConfigFile     Nahme und Extendion - Wird Indirekt Geändert zu KonfigPfad
    '           WorkDir        Pfad des Arbeitsverzeichnises - Wird Indirekt Geändert
    '           AppName        Erstellt einen Neuern Ordner mit Diesen Nahme, wenn Nicht Portabler Mode

    '4.GPS_Tools
    '   4.1 GPS_to_GMaps

    '5.Ascii<->Base64
    '   5.1 Ascii_To_Base64
    '   5.2 Base64_To_Ascii






    '###################################################################################################################
    '############### 1.Datei- und Ordnerdialoge ########################################################################
    '############### http://www.vb-fun.de/dotnet/tipps/tip0212.shtml ###################################################
    '###################################################################################################################

    '###################################################################################################################
    '############### 1.1 FolderBrowserDialog ###########################################################################
    '###################################################################################################################

    Public Function FolderBrowserDialog(Optional ByVal sStartPath As String = "C:\", Optional ByVal ShowNewFolderButton As Boolean = True, Optional ByRef CheckError As Boolean = False) As String
        'Verändert die übergebene variable,
        'wenn der benutzer durch "OK" den neuen Pfad bestätigt
        FolderBrowserDialog = ""
        Using FolderBrowserD As New FolderBrowserDialog
            With FolderBrowserD
                ' Ordnervorschlag
                .SelectedPath = sStartPath

                .Description = "Bitte einen Ordner auswählen."

                '#Button "Neuen Ordner erstellen" anzeigen
                .ShowNewFolderButton = ShowNewFolderButton

                '#ruft Dialog auf, weitere Ausführung nur bei Resultat "OK"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    FolderBrowserDialog = .SelectedPath
                Else
                    CheckError = True '#Ausführung bei Abruch
                End If
            End With 'FolderBrowserD
        End Using
    End Function 'FolderBrowserDialog

    '###################################################################################################################
    '############### 1.2 OpenFileDialog ################################################################################
    '###################################################################################################################

    'Private Sub Button1_Click(ByVal sender As Object, ByVal e As  _
    '      EventArgs) Handles Button1.Click
    '    ' ### OpenFileDialog ###
    '    Dim txt As String = ""
    '    Using ofd As New OpenFileDialog

    '        With ofd
    '            ' Ordnervorschlag
    '            .InitialDirectory = Pfad
    '            .Title = "Wähle Datei zum öffnen"
    '            ' Dateivorschlag (falls sinnvoll)
    '            ' .FileName = "Datei.gif"

    '            ' Filter
    '            .Filter = TextBox2.Text
    '            ' boolsche Abfrage ob Mehrfachauswahl zulässig
    '            .Multiselect = Not ChkEinzel.Checked

    '            ' Zeile ruft den Dialog auf, weitere Ausführung nur bei
    '            ' Resultat OK:
    '            If .ShowDialog = Windows.Forms.DialogResult.OK Then
    '                If ChkEinzel.Checked = True Then
    '                    ' Bei Einzelauswahl wertet man .FileName aus
    '                    txt = .FileName & vbNewLine

    '                Else
    '                    ' Bei möglicher Multiselektion wertet man
    '                    ' das Array .FileNames aus
    '                    For Each filename As String In .FileNames
    '                        txt &= filename & vbNewLine
    '                    Next
    '                End If
    '                ' Welcher Filter wurde verwendet?
    '                Dim idx As Integer = .FilterIndex
    '                txt &= "FilterIndex: " & idx.ToString & vbNewLine
    '                txt &= "Gewählter Filter: " & FilterDescription(.Filter, _
    '                       idx) & vbNewLine
    '                txt &= "Multiselect: " & .Multiselect.ToString
    '            Else
    '                txt = "Abbruch durch Benutzer"
    '            End If
    '        End With
    '    End Using
    '    TextBox1.Text = txt
    'End Sub 'OpenFileDialog

    '###################################################################################################################
    '############### 1.3 SaveFileDialog ################################################################################
    '###################################################################################################################

    'Private Sub Button2_Click(ByVal sender As Object, ByVal e As  _
    '        EventArgs) Handles Button2.Click
    '    ' ### SaveFileDialog ###
    '    Dim txt As String
    '    Using sfd As New SaveFileDialog

    '        With sfd
    '            ' Ordnervorschlag
    '            .InitialDirectory = Pfad
    '  .Title = "Eingabe Datei zum speichern (Es wird hier nicht "_
    '           "wirklich überschrieben)"
    '            ' Dateivorschlag
    '            .FileName = "Datei.gif"
    '            ' Filter
    '            .Filter = TextBox2.Text

    '            ' Zeile ruft den Dialog auf, weitere Ausführung nur bei
    '            ' Resultat OK:
    '            If .ShowDialog = Windows.Forms.DialogResult.OK Then
    '                txt = .FileName & vbNewLine

    '                ' Welcher Filter wurde verwendet?
    '                Dim idx As Integer = .FilterIndex
    '                txt &= "FilterIndex: " & idx.ToString & vbNewLine
    '                txt &= "Gewählter Filter: " & FilterDescription(.Filter, _
    '                    idx)
    '            Else
    '                txt = "Abbruch durch Benutzer"
    '            End If
    '        End With
    '    End Using
    '    TextBox1.Text = txt
    'End Sub 'SaveFileDialog

    '###################################################################################################################
    '############### xxxxxxxxxxxxxxxxxxxxxxx ###########################################################################
    '###################################################################################################################

    'Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As _
    '        Object, ByVal e As EventArgs) _
    '        Handles ComboBox1.SelectedIndexChanged
    '    Dim strFilter As String
    '    Select Case ComboBox1.SelectedIndex
    '        Case 0
    '            ' Einfacher Filter
    '            strFilter = "Gif Bilddateien|*.gif"
    '        Case 1
    '            ' Erweiterter Filter
    '            strFilter = "JPEG Bilddateien|*.jpg|Gif Bilddateien|*.gif|Alle Dateien|*.*"
    '        Case Else
    '            ' Mehrere Dateierweiterungen in einer Auswahl
    '            strFilter = "Alle Bilddateien|*.jpg; *.jpeg; *.bmp; *.gif, *.tif|Alle Dateien|*.*"
    '    End Select

    '    TextBox2.Text = strFilter
    'End Sub 'ComboBox1_SelectedIndexChanged

    'Private Function FilterDescription(ByVal Filter As String, _
    '        ByVal Index As Integer) As String
    '    ' erstellt aus dem Filterstring die Bezeichnung
    '    Dim strArr() As String = Split(Filter, "|"), _
    '        MyList As New List(Of String)
    '    For i As Integer = 0 To strArr.GetUpperBound(0)
    '        If (i Mod 2 = 0) Then MyList.Add(strArr(i))
    '    Next
    '    Return MyList(Index - 1)
    'End Function 'FilterDescription

    '###################################################################################################################
    '############### 2.Config Load/Save ################################################################################
    '############### Methonden für Laden von Variablen aus DB;INI,... ##################################################
    '###################################################################################################################
    '   2.1 From INI
    '       2.1.1 Config_INI_ReadValue
    '       2.1.2 Config_INI_WriteValue
    '   2.2 From My CMD seting Files

    '###################################################################################################################
    '############### 2.1 Config_From_INI ###############################################################################
    '###################################################################################################################
    'FamExample = Config_INI_ReadValue(FilePath, Section, Key, [""])
    'Config_INI_WriteValue(FilePath, Section, Key, Wert)

    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

    Public Function Config_INI_ReadValue(ByVal sFilePath As String, ByVal sSection As String, ByVal sKey As String, Optional ByVal sDefault As String = "") As String
        Dim strTemp As String = Space(1024), lLength As Integer
        lLength = GetPrivateProfileString(sSection, sKey, sDefault, strTemp, strTemp.Length, sFilePath)
        Return (strTemp.Substring(0, lLength))
    End Function
    Public Function Config_INI_WriteValue(ByVal sFilePath As String, ByVal sSection As String, ByVal sKey As String, ByVal sValue As String) As Boolean
        Return (Not (WritePrivateProfileString(sSection, sKey, sValue, sFilePath) = 0))
    End Function

    '###################################################################################################################
    '############### 2.2 Config_From_My-CMD-File #######################################################################
    '###################################################################################################################
    'Syntax der Datei:
    'Variable1 = Wertxy
    'Variable2 = Zahtl2
    '...
    'Alles in String (Mussa auf zahl Überprüft werden und dan DeDim as Integer ...)


    '###################################################################################################################
    '############### 3.PortableMode ####################################################################################
    '############### Veststellen ob Portable und deren Eigenarten ######################################################
    '###################################################################################################################
    '   3.1 3.PortableModeTrue
    'Festlegung ob Portable oder nicht
    Public Function PortableModeTrue(ByVal ConfigFileName As String) As Boolean
        If File.Exists(".\" & ConfigFileName) Then
            PortableModeTrue = True
        Else
            PortableModeTrue = False
        End If

    End Function 'PortableModeTrue

    'Übergabe: ConfigFile [WorkDir] [AppName]       Return: (PortableMode=True/False)
    'ConfigFile     Nahme und Extendion - Wird Indirekt Geändert zu KonfigPfad
    'WorkDir        Pfad des Arbeitsverzeichnises - Wird Indirekt Geändert
    'AppName        Erstellt einen Neuern Ordner mit Diesen Nahme, wenn Nicht Portabler Mode

    Public Function PortableMode(ByRef ConfigFile As String, Optional ByRef WorkDir As String = "-default-", Optional ByVal AppName As String = "-default-") As Boolean
        If AppName = ("-default-" Or "") Then
            AppName = Application.ProductName
        End If
        If Not Directory.Exists(WorkDir) Then WorkDir = "-default-"
        If WorkDir = ("-default-" Or "") Then
            WorkDir = Application.StartupPath
        End If

        If File.Exists(Path.Combine(WorkDir, ConfigFile)) Then
            PortableMode = True
            ConfigFile = Path.Combine(WorkDir, ConfigFile)
        Else
            PortableMode = False
            WorkDir = Environment.GetEnvironmentVariable("APPDATA") & "\" & AppName
            If Not Directory.Exists(WorkDir) Then Directory.CreateDirectory(WorkDir)
            ConfigFile = Path.Combine(WorkDir, ConfigFile)
            If Not File.Exists(ConfigFile) Then File.Create(ConfigFile)
        End If

    End Function 'PortableMode

    '###################################################################################################################
    '############### 4.GPS_Tools #######################################################################################
    '###################################################################################################################


    Public Sub GPS_to_GMaps(ByVal GPS As String)
        'Soll anhand der GPS Koordinaten GoogleMaps öfnen
        'URL ansteuerung: https://developers.google.com/maps/documentation/staticmaps/
        ' String = "52.520817 13.40945"
        '
        'Umrechnung von Geo-Koordinaten:    http://rechneronline.de/geo-koordinaten/
        ' ___________________________________________________________________________________________________
        '| Grad, Minuten, Sekunden	              | Dezimalgrad	            | Grad, Dezimalminuten           |
        '| z.B. N52° 31' 14.941" E13° 24' 34.020" | z.B. 52.520817 13.40945 |	z.B. N52° 31.249 E13° 24.567 |
        ' ---------------------------------------------------------------------------------------------------
        '  URL=  "http://maps.google.com/maps?q=" & String
        'In Projekt SB-PictureTagger: Set a LincLable ;)
    End Sub
    '###################################################################################################################
    '############### 5.Ascii<->Base64 ##################################################################################
    '###################################################################################################################

    'Ascii to Base64
    Public Function Ascii_To_Base64(ByVal AsciiString As String) As String
        Dim base64encoded As String = vbNull
        Dim raw As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(AsciiString)
        base64encoded = System.Convert.ToBase64String(raw)
        Ascii_To_Base64 = base64encoded
    End Function
    'Base64 to Ascii
    Public Function Base64_To_Ascii(ByVal Base64String As String) As String
        Try
            Dim raw As Byte() = System.Convert.FromBase64String(Base64String)
            Base64_To_Ascii = System.Text.ASCIIEncoding.ASCII.GetString(raw)
        Catch ex As Exception
            MsgBox(ex.Message)
            Base64_To_Ascii = ""
        End Try
    End Function

End Module 'Modul_Tools