Salut à tous
J'aimerai que quelqu'un m'aide à traduire ce message en anglais
1R9S10R2S3R9S10R2S65389R
Quoi !!?
C'est la 1ère partie de la solution au tableau Special-I_0491 «Pathological LPB Example» par Mr Eric Schmidt (la fin de la solution ne demande pas beaucoup de temps)
Comment convertir ce code en LPB ?
1. Créez un LPB bidon pour Special-I_0491 (faites un tir dans ce tableau et quittez, LTank vous proposera d'enregistrer vos déplacements, choisissez Oui)
2. Lancez l'utilitaire « EN-LPB_Tools.exe » et ouvrez le dossier contenant ce Special-I_0491.LPB
3. à l'aide d'un traitement de texte vous pouvez remplacez dans le code 1R9S10R2S3R9S10R2S65389R "R" par "right", "L" par "left"�&
4. Collez le résultat 1RIGHT9SHOT10RIGHT2SHOT3RIGHT9SHOT10RIGHT2SHOT65389RIGHT par clic droit sur "Special-I_0491.LPB" ouvert dans « EN-LPB_Tools.exe »
Je vous présente une Macro qui fait la 3ème étape sous Ms Word
Pour cela, ouvrez Word, choisissez le menu Outil / Macro ► / ►Macros�& une boîte de dialogue s'ouvrira, donnez un nom à la macro et choisissez Créer, remplacez ce que l'éditeur VBA vous propose par la macro qui suit, Enregistrer et Fermer l'éditeur VBA
Pour remplacer le code 1R9S10R2S3R9S10R2S65389R, sélectionnez le, choisissez le menu Outil / Macro ► / ►Macros�& dans la boîte de dialogue, sélectionnez le nom de la macro et choisissez Exécuter
Sub MacroLPB1()
With Selection.Find
.Text = "R"
.Replacement.Text = "Right"
.Execute Replace:=wdReplaceAll
.Text = "L"
.Replacement.Text = "Left"
.Execute Replace:=wdReplaceAll
.Text = "U"
.Replacement.Text = "Up"
.Execute Replace:=wdReplaceAll
.Text = "D"
.Replacement.Text = "Down"
.Execute Replace:=wdReplaceAll
.Text = "S"
.Replacement.Text = "Shot"
.Execute Replace:=wdReplaceAll
End With
End Sub
La macro suivante fait l'inverse
Sub MacroLPB2()
With Selection.Find
.Text = " right"
.Replacement.Text = "R"
.Execute Replace:=wdReplaceAll
.Text = " left"
.Replacement.Text = "L"
.Execute Replace:=wdReplaceAll
.Text = " up"
.Replacement.Text = "U"
.Execute Replace:=wdReplaceAll
.Text = " down"
.Replacement.Text = "D"
.Execute Replace:=wdReplaceAll
.Text = " shot"
.Replacement.Text = "S"
.Execute Replace:=wdReplaceAll
.Text = "^p"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End Sub
L'intérêt de cette deuxième macro est de convertir des LPB en un code simple, transportable et concis
Voici deux LPB pour le même tableau « Challenge-IV_1067 / California Dreamin' » chacun sert à tuer un seul Anti-Tank (le tableau contient 2 Anti-Tank à détruire)
6U1L1S10U7L1D1S2R1D1S2R1D1S4L1D4S2R1D6S5L5D1R6S9D1R15S9U1R4S2U1R1S10D1R23S
5U1L1S11U6L1D1S6L5D1R26S5U11R12D1L2S12U2L1D9S2R15D2L1U2S2R3U1L16S
Je rencontre un problème avec l'utilitaire « EN-LPB_Tools.exe », il ne permet pas de copier les mouvements (Copy the moves) si le presse papier de Windows contient quelque chose, je doit à chaque fois le vider
J'espère que ce long message soit d'une utilité pour vous
Mes amitiés
Ihab
J'aimerai que quelqu'un m'aide à traduire ce message en anglais
1R9S10R2S3R9S10R2S65389R
Quoi !!?
C'est la 1ère partie de la solution au tableau Special-I_0491 «Pathological LPB Example» par Mr Eric Schmidt (la fin de la solution ne demande pas beaucoup de temps)
Comment convertir ce code en LPB ?
1. Créez un LPB bidon pour Special-I_0491 (faites un tir dans ce tableau et quittez, LTank vous proposera d'enregistrer vos déplacements, choisissez Oui)
2. Lancez l'utilitaire « EN-LPB_Tools.exe » et ouvrez le dossier contenant ce Special-I_0491.LPB
3. à l'aide d'un traitement de texte vous pouvez remplacez dans le code 1R9S10R2S3R9S10R2S65389R "R" par "right", "L" par "left"�&
4. Collez le résultat 1RIGHT9SHOT10RIGHT2SHOT3RIGHT9SHOT10RIGHT2SHOT65389RIGHT par clic droit sur "Special-I_0491.LPB" ouvert dans « EN-LPB_Tools.exe »
Je vous présente une Macro qui fait la 3ème étape sous Ms Word
Pour cela, ouvrez Word, choisissez le menu Outil / Macro ► / ►Macros�& une boîte de dialogue s'ouvrira, donnez un nom à la macro et choisissez Créer, remplacez ce que l'éditeur VBA vous propose par la macro qui suit, Enregistrer et Fermer l'éditeur VBA
Pour remplacer le code 1R9S10R2S3R9S10R2S65389R, sélectionnez le, choisissez le menu Outil / Macro ► / ►Macros�& dans la boîte de dialogue, sélectionnez le nom de la macro et choisissez Exécuter
Sub MacroLPB1()
With Selection.Find
.Text = "R"
.Replacement.Text = "Right"
.Execute Replace:=wdReplaceAll
.Text = "L"
.Replacement.Text = "Left"
.Execute Replace:=wdReplaceAll
.Text = "U"
.Replacement.Text = "Up"
.Execute Replace:=wdReplaceAll
.Text = "D"
.Replacement.Text = "Down"
.Execute Replace:=wdReplaceAll
.Text = "S"
.Replacement.Text = "Shot"
.Execute Replace:=wdReplaceAll
End With
End Sub
La macro suivante fait l'inverse
Sub MacroLPB2()
With Selection.Find
.Text = " right"
.Replacement.Text = "R"
.Execute Replace:=wdReplaceAll
.Text = " left"
.Replacement.Text = "L"
.Execute Replace:=wdReplaceAll
.Text = " up"
.Replacement.Text = "U"
.Execute Replace:=wdReplaceAll
.Text = " down"
.Replacement.Text = "D"
.Execute Replace:=wdReplaceAll
.Text = " shot"
.Replacement.Text = "S"
.Execute Replace:=wdReplaceAll
.Text = "^p"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End Sub
L'intérêt de cette deuxième macro est de convertir des LPB en un code simple, transportable et concis
Voici deux LPB pour le même tableau « Challenge-IV_1067 / California Dreamin' » chacun sert à tuer un seul Anti-Tank (le tableau contient 2 Anti-Tank à détruire)
6U1L1S10U7L1D1S2R1D1S2R1D1S4L1D4S2R1D6S5L5D1R6S9D1R15S9U1R4S2U1R1S10D1R23S
5U1L1S11U6L1D1S6L5D1R26S5U11R12D1L2S12U2L1D9S2R15D2L1U2S2R3U1L16S
Je rencontre un problème avec l'utilitaire « EN-LPB_Tools.exe », il ne permet pas de copier les mouvements (Copy the moves) si le presse papier de Windows contient quelque chose, je doit à chaque fois le vider
J'espère que ce long message soit d'une utilité pour vous
Mes amitiés
Ihab