Discussion :

[xian21]

Bonjour,

Pour la creatin d'un rapport je souhaite decoupe une chaine en fonctionne de sa longueur et renvoye un caractere.
La fonction ci dessous fonctionne bien.

Code :

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

1
2
3
4
5
=iif(
	Len(Fields!BatchNumber.Value) = 9,
	GetChar(Fields!BatchNumber.Value, 8),
			"?"
)

Par contre, lorsque j'essaye d'en imbriquer plusieurs cela ne fonctionne plus que pour la derniere verification.
(Ici pour les chaines de 12 caracteres ca fonctionne, mais les chaines de 9 caracteres me renvoye erreurs...)

Code :

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

1
2
3
4
5
6
7
8
9
=iif(
	Len(Fields!BatchNumber.Value) = 9,
	GetChar(Fields!BatchNumber.Value, 8),
	iif(
			Len(Fields!BatchNumber.Value) = 12,
			GetChar(Fields!BatchNumber.Value, 10),
			"?"
	)
)

Quelqu'un aurai une idee?

Merci

[ACIVE_CS]

Bonjour,

Je crains n'avoir pas bien compris ton problème mais déjà "Len" vient du VB6 et est obsolète, en VB.Net on utilise le .length.

Mais je ne comprends pas bien ta question;
Si la chaine contient 9 caractères tu veux afficher le 8ème et sie elle contient 12 tu veux afficher le 10ème?

Comme ça?

Code :

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

1
2
3
4
5
6
  Dim Chaine As String = Fields!BatchNumber.Value
        If Chaine.Length = 9 Then
            MessageBox.Show(Chaine.ToCharArray(7, 1))
        ElseIf Chaine.Length = 12 Then
            MessageBox.Show(Chaine.ToCharArray(9, 1))
        End If

[xian21]

oui, c'est bien ca que je veux.
Le probleme c'est que je travaille sur un rapport.
Dans lequel j'insere un calcfield et dans ce calcfield je n'ai acces que a la touche fonction (fx) ou les possibilite de code sont tres limite.
(pas de cast par exemple)

[ACIVE_CS]

Il n'y a pas de rapport avec VB.NET donc (la présente section) ???

[xian21]

ben, le code c'est bien du vb?
Sinon dans quel section je dois poser cette question?

merci

PS : Aprioi je viens de voir que je dois pouvoir avoir acces au code du report.
(clic droit / propriete)

[ACIVE_CS]

Re:

Ca ressemble à du VB avec les accolades du C...
Voilà ce qui arrive quand on met un "C Daziste" a coder en VB

Bon, ceci étant dit, on se concentre sur la logique et la méthode nécessaire pour résoudre ton problème.
Compte-tenu que nous savons pas trop comment interpréter ce langage et que ça ressemble plus à VB6 /Cxx et que nous sommes pas sur qu'en VB.net ça fonctionne (car c'est complètement différent)... Va pour la solution en VB6!

Je pense que ceci devrait résoudre ton problème:

Code :

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

1
2
3
 
 Dim Chaine As String = "ton texte"
 =IIf((Len(Chaine) = 9 Or Len(Chaine) = 12), GetChar(Chaine, ((Len(Chaine) - 1) - Int(Len(Chaine) / 12))), "?")