Discussion :

[GriffinK]

Bonjour,

Sous vb6, il était possible de déclarer une string de longueur fixe. Ce n'est plus possible en Dotnet, du coup je voudrais savoir si quelqu'un a une astuce qui permettrait de le faire, ou peut-être une classe pour ce genre de choses..je n'ai rien trouvé via google ni ici.

Merci de m'avoir lu

[LaChips]

Bonjour,

Je viens te t'écrire une petite classe, j'expère qu'elle répondra à tes attentes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
    public class MyString
    {
 
        private String _value = String.Empty;
        private Int32 _maxLenght;
 
        #region Constructors
 
        public MyString(Int32 maxLenght)
        {
            this._maxLenght = maxLenght;
        }
 
        public MyString(String value)
            : this(value.Length)
        {
            Set(value);
        }
 
        public MyString(String value, Int32 maxLenght)
            : this(maxLenght)
        {
            Set(value);
        }
 
        #endregion
 
        public void Set(String value)
        {
            if (value.Length > this._maxLenght)
                this._value = value.Substring(0, this._maxLenght - 1);
            else
                this._value = value;
        }
 
        public Int32 MaxLenght
        {
            get { return this._maxLenght; }
            set
            {
                if (this._value.Length > value)
                    this._value = this._value.Substring(0, value - 1);
 
                this._maxLenght = value;
            }
        }
        public char this[int index] { get { return this._value[index]; } }
 
        public override string ToString()
        {
            return this._value;
        }
 
        public static implicit operator MyString(String value)
        {
            return new MyString(value);
        }
 
        public static explicit operator String(MyString value)
        {
            return value.ToString();
        }
    }

Cette classe n'est pas compléte, il est tout à fait possible de l'améliorer.

[GriffinK]

Je traduis de suite et je teste

Merci d'avoir pris le temps de faire ça, c'est gentil

[GriffinK]

Voila ce que j'ai au final:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Public Class StringFixe
 
    Private _value As String
    Private _maxLength As Integer
 
#Region "Constructeurs"
 
    Public Sub StringFixe()
        _maxLength = 0
        _value = ""
    End Sub
 
    Public Sub StringFixe(ByVal maxLength As Integer)
        _maxLength = maxLength
    End Sub
 
    Public Sub StringFixe(ByVal maxLength As Integer, ByVal value As String)
        _maxLength = maxLength
        Remplir(value)
    End Sub
 
#End Region
 
#Region "Subs et fonctions"
 
    Public Sub Initialiser(ByVal maxLength As Integer)
        _maxLength = maxLength
        _value = ""
    End Sub
 
    Public Sub Remplir(ByVal value As String)
        If value.Length > _maxLength Then
            _value = value.Substring(0, _maxLength)
        Else
            _value = value
        End If
    End Sub
 
    Public Function Length() As Integer
        Length = _maxLength
    End Function
 
    Public Function Value() As String
        Value = _value.ToString
    End Function
 
    Public Function ValueAt(ByVal position As Integer) As Char
        If position < _maxLength AndAlso position >= 0 Then
            ValueAt = _value.Chars(position)
        Else
            ValueAt = CChar("")
        End If
    End Function
 
#End Region
 
End Class

Et pour initialiser dans une structure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    Public Structure Test
        Dim StringALongueurFixe As StringFixe
        Public Sub Initialize()
            Dim StringALongueurFixe1 As New StringFixe
            StringALongueurFixe = StringALongueurFixe1 
        End Sub
    End Structure
 
    ' Puis 
 
        Dim test As New Test
        With test 
            .Initialize()
            .StringALongueurFixe.Initialiser(5)
            .PoiName.Remplir("123456")
        End With
        MsgBox(CStr(test.StringALongueurFixe.Value)) ' Affiche 12345

Voila, encore merci LaChips !
Toute suggestion est la bienvenue

[Skalp]

As-tu essayé avec la classe StringBuilder ?

[LaChips]

As-tu essayé avec la classe StringBuilder ?

Comment nous sécher en 7 mots
c'est vrai que je n'y ai pas pensé.

[GriffinK]

Comment nous sécher en 7 mots
c'est vrai que je n'y ai pas pensé.

Je n'ai pas vu dans le lien comment demander à ce qu'une chaine de caractère ne dépasse pas x chars

[smyley]

StringBuilder.MaxCapacity ?

[GriffinK]

StringBuilder.MaxCapacity ?

Lorsque je veux faire:

sb.maxCapacity = 5 ' pour 5 chars max

J'ai une erreur comme quoi c'est une propriété readOnly :s

[GriffinK]

Et avec
sb.Capacity = 2
puis sb.Insert(0, "1234", 1)
MsgBox sb.tostring ' affiche 1234

[BCmDev]

MaxCapacity s'initialise dans le constructeur de StringBuilder.

[GriffinK]

MaxCapacity s'initialise dans le constructeur de StringBuilder.

Ok compris, merci je vais tester ça

[GriffinK]

MaxCapacity s'initialise dans le constructeur de StringBuilder.

Re salut,
Losque je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim test1 As New StringBuilder(5, 5)
test.Append("123456")

Ca plante, message d'erreur:

capacity was less than the current size.
Parameter name: requiredLength

Idéalement, le logiciel ne devrait pas planter, mais juste récupérer les 5 premiers chars de "123456". Est-ce possible avec le stringBuilder ?