MS ExportFiles SelectedPath and PRPM_GETFILENAME_EXPORT

This commit is contained in:
2021-09-21 15:17:34 +02:00
parent 49840b12f7
commit c3c7ff5b38
4 changed files with 33 additions and 13 deletions

View File

@@ -136,11 +136,14 @@ Public Class clsPatterns
End While
While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_ID)
If IsNothing(CURRENT_CLICKED_PROFILE_ID) Then
CURRENT_CLICKED_PROFILE_ID = 0
End If
result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_ID)
End While
While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_TITLE)
If CURRENT_CLICKED_PROFILE_TITLE Is Nothing Then
CURRENT_CLICKED_PROFILE_TITLE = "EXCEPTIONTitleNothing"
CURRENT_CLICKED_PROFILE_TITLE = "NONE_TITLE"
End If
result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_TITLE)
End While