BLinz am 18. Februar 2014 um 21:35 Uhr

2014-02-18T21:35:11Z

Neue Seite

[[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!}} 
 
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]]''' 

[[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:

'''Teil 1: Hexadezimal in Dezimal'''

<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>

----

'''Teil 2: Dezimal in Hexadezimal'''

<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 />

JumpingProfiles:Dezimal-Hexadezimal in Gruppenkonfigurationsdateien - Versionsgeschichte

BLinz am 18. Februar 2014 um 21:35 Uhr