Bonjour,
J'aurais besoin de votre aide je suis en train d'essayer de coder un traducteur en VB.NET de Action Sctipt vers Visual Basic.
J'ai besoin de supprimé tous les '}' & '{' du fichier mais je ne sais pas comment faire
Je voudrais aussi dans sa "public class CharacterDeletionErrorEnum extends Object" supprimé tous ce qui ce trouve apres la 3 eme place(donc apres sa : CharacterDeletionErrorEnum ) mais je ne sais comment faire aussi sachant que en 3eme place ça ne sera pas toujours ; "CharacterDeletionErrorEnum"
Mon code AS :
code vb
Cordialement
J'aurais besoin de votre aide je suis en train d'essayer de coder un traducteur en VB.NET de Action Sctipt vers Visual Basic.
J'ai besoin de supprimé tous les '}' & '{' du fichier mais je ne sais pas comment faire
Je voudrais aussi dans sa "public class CharacterDeletionErrorEnum extends Object" supprimé tous ce qui ce trouve apres la 3 eme place(donc apres sa : CharacterDeletionErrorEnum ) mais je ne sais comment faire aussi sachant que en 3eme place ça ne sera pas toujours ; "CharacterDeletionErrorEnum"
Mon code AS :
Code:
package com.ankamagames.dofus.network.enums
{
public class CharacterDeletionErrorEnum extends Object
{
public static const DEL_ERR_NO_REASON:uint = 1;
public static const DEL_ERR_TOO_MANY_CHAR_DELETION:uint = 2;
public static const DEL_ERR_BAD_SECRET_ANSWER:uint = 3;
public static const DEL_ERR_RESTRICED_ZONE:uint = 4;
public function CharacterDeletionErrorEnum()
{
super();
}
}
}
code vb
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim package As String = TextBox1.Text.Replace("package", "Namespace")
Dim cons As String = TextBox1.Text.Replace("public static const DEL_ERR_NO_REASON:uint = 1", "public DEL_ERR_NO_REASON As uinteger = 1")
Dim tmp As String = TextBox2.Text
TextBox2.Text = tmp.Insert(TextBox2.SelectionStart, package & cons)
End Sub
Cordialement