Quelltext der Seite JumpingProfiles:Dezimal-Hexadezimal in Gruppenkonfigurationsdateien


[[Kategorie:Word]]
{{Hinweis| Die aktuellen JumpingProfiles Versionen kennen in der JPConfig.ini einen Parameter für die Miration - man kann die Version angeben von der man kommt. Dadurch wird das hier nicht mehr gebraucht!}}<br>
<br>
In den JumpingProfiles Versionen vor 4.x wurden verschiedene Schreibweisen für '''''REG_BINARY''''' Werte in den Groupenkonfigurationsdateien verwendet. Typischerweise ist hiervon die '''''GroupLogin.dat''''' betroffen.

Hier kamen sowohl die Schreibweise in dezimal

 HKEY_CURRENT_USER\Software\Softmicro\Affice\99.0\Common\
 Data = REG_BINARY 255 255 255 255 8 0 0 0 0 0 0 0 255

als auch in hexadezimal

 HKEY_CURRENT_USER\Software\Softmicro\Affice\99.0\Common\
 Data = REG_BINARY FF FF FF FF 08 00 00 00 00 00 00 00 FF

vor.

Ab 4.x gibt es nur noch die 2. Schreibweise. Wollen Sie Einträge aus der '''''GroupLogin.dat''''' übernehmen so sollten Sie alle Dateien diesen Typs auf '''''REG_Binary''''' Werte überprüfen und diese ggf. konvertieren.

Zum Konvertieren können Sie nachfolgendes Word-Dokument verwenden:


'''[[Media:Dezi-Hex_und_Hex-Dezi.zip]]'''<br>

[[Datei:Hex-Dezi Dezi-Hex.gif]]

----

und hier der Quellcode der beiden VBA Makros. Ich habe den leichtesten Weg gewählt und arbeite mit einem geschickten Suchen-und-Ersetzen:

'''<u>Teil 1: Hexadezimal in Dezimal</u>'''

<syntaxhighlight lang="vb">
 
Sub HEXDezi()
'
' HEXDezi Makro
' 18.05.2009 von Bernhard Linz
' Bernhard.Linz@datagroup.de

For i = 255 To 16 Step -1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Hex(i)
        .Replacement.Text = i
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "00"
        .Replacement.Text = "0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "01"
        .Replacement.Text = "1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "02"
        .Replacement.Text = "2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "03"
        .Replacement.Text = "3"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "04"
        .Replacement.Text = "4"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "05"
        .Replacement.Text = "5"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "06"
        .Replacement.Text = "6"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "07"
        .Replacement.Text = "7"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "08"
        .Replacement.Text = "8"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "09"
        .Replacement.Text = "9"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0A"
        .Replacement.Text = "10"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0B"
        .Replacement.Text = "11"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0C"
        .Replacement.Text = "12"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0D"
        .Replacement.Text = "13"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0E"
        .Replacement.Text = "14"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0F"
        .Replacement.Text = "15"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 

</syntaxhighlight>



----

'''<u>Teil 2: Dezimal in Hexadezimal</u>'''

<syntaxhighlight lang="vb">

 
Sub DeziHEX()

' 18.05.2009 von Bernhard Linz
' Bernhard.Linz@datagroup.de

For i = 0 To 255 Step 1
    Select Case i
        Case 0
            i2 = "00"
        Case 1
            i2 = "01"
        Case 2
            i2 = "02"
        Case 3
            i2 = "03"
        Case 4
            i2 = "04"
        Case 5
            i2 = "05"
        Case 6
            i2 = "06"
        Case 7
            i2 = "07"
        Case 8
            i2 = "08"
        Case 9
            i2 = "09"
        Case 10
            i2 = "0A"
        Case 11
            i2 = "0B"
        Case 12
            i2 = "0C"
        Case 13
            i2 = "0D"
        Case 14
            i2 = "0E"
        Case 15
            i2 = "0F"
        Case Else
            i2 = Hex(i)
    End Select
       
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = i
        .Replacement.Text = i2
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
Next i

End Sub
 
</syntaxhighlight>
<comments />