+ <use>%GitHub%/{owner}/{repro}@{branch}/path/to/codemodule</use>

Author: josef-poetzl

source/forms/ACLibImportWizardForm.cls

@@ -22,7 +22,6 @@ Private Const APPFILE_PROPNAME_APPICON As String = "AppIcon"
 Private Const RepositorySource_GitHub As Long = 1
 Private Const RepositorySource_LocalRepository As Long = 2
 
-
 Private Const TEMPDB_TABNAME As String = "tRepositoryFiles"
 Private Const TEMPDB_TABDDL As String = "create table " & TEMPDB_TABNAME & " (LocalRepositoryPath varchar(255) primary key, ObjectName varchar(255), Description memo)"
 Private m_TempDb As TempDbHandler
@@ -172,7 +171,7 @@ On Error GoTo HandleErr
    Me.Repaint
 
    Set ACLibFileMngr = CurrentACLibFileManager
-   If Me.ogRepositorySource = 1 Then
+   If Me.ogRepositorySource = RepositorySource_GitHub Then
       Set m_ACLibFileManager = ACLibFileMngr
    Else '
       Set m_ACLibFileManager = Nothing

source/modules/ACLibFileManager.cls

@@ -79,9 +79,10 @@ Private Const SEARCHSTRING_REPORTIDENTIFER As String = "Begin Report"
 
 Private Const MODULNAME_CONFIG_APPLICATION As String = "_config_Application"
 
-Private Const REPOSTITORY_ROOT_CODE_APPLICATIONROOT As String = "%AppFolder%"
 Private Const REPOSTITORY_ROOT_CODE_WithoutCodeLibInfoExportFolder As String = "source"
+Private Const REPOSTITORY_ROOT_CODE_APPLICATIONROOT As String = "%AppFolder%"
 Private Const REPOSTITORY_ROOT_CODE_PRIVATEROOT As String = "%PrivateRoot%"
+Private Const REPOSTITORY_ROOT_CODE_GITHUBROOT As String = "%GitHub%"
 
 Private m_ImportFileCollection As Collection
 Private m_ReplacedFilesCollection As Collection
@@ -184,11 +185,20 @@ End Sub
 
 Private Sub Dispose()
 On Error Resume Next
+   RemoveTempFiles
    Set m_ImportFileCollection = Nothing
    Set m_FSO = Nothing
    Set m_CurrentVbProject = Nothing
 End Sub
 
+Private Sub RemoveTempFiles()
+
+   If FileTools.DirExists(GitHubTempRepositoryPath) Then
+      CreateObject("Scripting.FileSystemObject").DeleteFolder GitHubTempRepositoryPath, True
+   End If
+
+End Sub
+
 Public Property Let ExportAllToApplicationSourceFolder(ByVal NewValue As Boolean)
    m_ExportAllToApplicationSourceFolder = NewValue
 End Property
@@ -309,8 +319,6 @@ Public Sub ImportRepositoryFile(ByVal RepositoryPath As String, _
 
    PathString = GetRepositoryFullPath(RepositoryPath)
 
-
-
    Dim TempFile As Object
    Set TempFile = fso.GetFile(PathString)
    AddMissingFile TempFile, ImportMode
@@ -642,7 +650,21 @@ Public Function GetRepositoryFullPath(ByVal ReleativPath As String) As String
       End If
       ReleativPath = Mid$(ReleativPath, Len(REPOSTITORY_ROOT_CODE_PRIVATEROOT) + 1)
 
+   ElseIf Left(ReleativPath, Len(REPOSTITORY_ROOT_CODE_GITHUBROOT)) = REPOSTITORY_ROOT_CODE_GITHUBROOT Then
+      ' %GITHUB%\owner\repo@branch\Path
+      ReleativPath = Replace(ReleativPath, "\", "/")
+      If Not DownLoadFromGitHub(ReleativPath, RepPath) Then
+         Err.Raise vbObjectError, "getRepositoryFullPath", "Download aus GitHub ist fehlgeschlagen"
+         Exit Function
+      End If
+
+      If Len(RepPath) = 0 Then
+         Err.Raise vbObjectError, "getRepositoryFullPath", "Wert für lokales GitHub-Temp-Verzeichnis fehlt."
+         Exit Function
+      End If
+
    Else
+
       If m_ExportAllToApplicationSourceFolder Then
          RepPath = CurrentProject.Path & "\source\codelib\"
       Else
@@ -654,7 +676,6 @@ Public Function GetRepositoryFullPath(ByVal ReleativPath As String) As String
          Exit Function
       End If
 
-
    End If
 
    Do While Left$(ReleativPath, 1) = "\"
@@ -671,6 +692,48 @@ Public Function GetRepositoryFullPath(ByVal ReleativPath As String) As String
 
 End Function
 
+Private Function DownLoadFromGitHub(ByVal ReleativPath As String, ByRef RepPath As String) As Boolean
+' %GITHUB%/owner/repo@branch/Path
+
+   Dim FullFilePath As String
+   Dim GitHubDataCutPos As Long
+   Dim GitHubUrlDataString As String
+   Dim GitHubPath As String
+   Dim GitHubUrlData() As String
+   Dim RelativeFileUrl As String
+
+   '%GITHUB%/owner/repo@branch/Path
+   GitHubPath = Mid(Replace(ReleativPath, "\", "/"), Len(REPOSTITORY_ROOT_CODE_GITHUBROOT) + 2)
+   GitHubDataCutPos = InStr(InStr(1, GitHubPath, "@") + 1, GitHubPath, "/")
+   GitHubUrlDataString = Left(GitHubPath, GitHubDataCutPos - 1)
+   RelativeFileUrl = Mid(GitHubPath, GitHubDataCutPos + 1)
+   GitHubUrlDataString = Replace(GitHubUrlDataString, "@", "/")
+
+   GitHubUrlData = Split(GitHubUrlDataString, "/")
+   RepPath = GitHubTempRepositoryPath & "\"
+   ReleativPath = Replace(RelativeFileUrl, "/", "\")
+   FullFilePath = RepPath & ReleativPath
+
+   If Not FileTools.FileExists(FullFilePath) Then
+
+      With New ACLibGitHubImporter
+         .RepositoryOwner = GitHubUrlData(0)
+         .RepositoryName = GitHubUrlData(1)
+         .BranchName = GitHubUrlData(2)
+         CreateDirectoryIfMissing FileTools.PathFromFullFileName(FullFilePath)
+         .DownloadACLibFileFromWeb RelativeFileUrl, FullFilePath
+      End With
+
+   End If
+
+   DownLoadFromGitHub = True
+
+End Function
+
+Private Property Get GitHubTempRepositoryPath() As String
+   GitHubTempRepositoryPath = FileTools.TempPath & "ACLibTempRepo"
+End Property
+
 Private Sub ImportFile(ByRef ImportFile As Object, ByRef ImportMode As CodeLibImportMode, _
               Optional ByVal ImportTestFiles As Boolean = False)
 

source/modules/WinApiShortcutMenu.cls

@@ -221,7 +221,7 @@ Private Declare Function TranslateMessage _
 Private Declare Function GetWindowRect _
       Lib "user32.dll" ( _
          ByVal Hwnd As Long, _
-         ByRef lpRect As RECT _
+         ByRef lpRect As Rect _
       ) As Long
 
 Private Declare Function SetMenuDefaultItem _

source/modules/_config_Application.bas

@@ -13,7 +13,7 @@ Option Compare Database
 Option Explicit
 
 'Versionsnummer
-Private Const APPLICATION_VERSION As String = "1.3.3"
+Private Const APPLICATION_VERSION As String = "1.4.0"
 
 #Const USE_CLASS_ApplicationHandler_AppFile = 1
 #Const USE_CLASS_ApplicationHandler_DirTextbox = 1

source/tables/L10n_Dict.xml

@@ -393,4 +393,14 @@ Marked entries can be removed from the list with {Del} key.</LngText>
     <KeyText>ACLib Import Wizard: Incorrect start</KeyText>
     <LngText>ACLib Import Wizard: Incorrect start</LngText>
   </L10n_Dict>
+  <L10n_Dict>
+    <LangCode>DE</LangCode>
+    <KeyText>The add-in must be installed into the Access add-in directory using the add-in manager. Afterwards it has to be started via the menu entry 'ACLib Import Wizard'.</KeyText>
+    <LngText>DE:The add-in must be installed into the Access add-in directory using the add-in manager. Afterwards it has to be started via the menu entry 'ACLib Import Wizard'.</LngText>
+  </L10n_Dict>
+  <L10n_Dict>
+    <LangCode>DE</LangCode>
+    <KeyText>ACLib Import Wizard: Incorrect start</KeyText>
+    <LngText>DE:ACLib Import Wizard: Incorrect start</LngText>
+  </L10n_Dict>
 </dataroot>