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))), "?")

[ACIVE_CS]

Ou encore un peu plus simple:

Code :

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

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

[clementmarcotte]

Bonjour Acive

Re:
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))), "?")

Iif() et Len() sont supportés dans l'Assembly Microsoft.Visual.BASIC. (Tu sais, celui qu'il ne faut pas importer.) Donc, ces éléments-là ont été maintenus pour préserver la compatibilité. Donc, je suis moins convaincu de la portabilité dans d'autres langages comme C, C++ ou Caiguisé.

P.S. Cela me rappelle une vieille histoire. À l'époque de QuickBasic; quelqu'un avait posé une question dans le courrier des lecteurs d'un magazine dont j'oublie le titre. Il demandait quelle structure était la plus rapide entre le If Then Else et le Select Case. Le spécialiste qui répondait avait vérifié le programme compilé. Le résultat a été que les deux blocs étaient compilés exactement de la même façon.

En conclusion, serait-ce la même chose pour un Iif() et un bloc if then else ?

[ACIVE_CS]

Bonjour cmarcotte comment ça va?
Oui... len, iif, getchar, goto, gosub, QBasic... c'est mon coté nostalgique

J'ai bien précisé que ce n'est pas du VB.net, et visiblement notre demandeur ne sait pas trop ce que c'est non plus, et j'ai juste voulu suivre sa logique de manière fonctionnelle.

D'après la présentation du code, j'en déduis également qu'il ne code pas avec visual studio (en tout cas pas en VB).
Et encore vu sa signature cela signifie que nous ne fréquentons pas tout à fait les mêmes mondes (ce n'est pas un reproche, au contraire).

Mais le fait est là; c'est qu'il faut encore que je répare ma boule de cristal

Quand tu parles de la rapidité des différents langages une fois compilés, moi aussi j'ai entendu ça même en ce qui concerne le plus récent Visual Studio entre le C++ et VB.Net par exemple, une fois compilés ça revient au même.
Est-ce vrai ???

[xian21]

OUi oui je suis du monde du C# donc pour moi le vb est une autre langue..

[ACIVE_CS]

Bonjour,
Ce n'est pas une critique...

Alors as-tu testé ceci?

Code :

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

1
2
 
IIf((Len(Fields!BatchNumber.Value) = 9 Or Len(Fields!BatchNumber.Value) = 12), GetChar(Fields!BatchNumber.Value, ((Len(Fields!BatchNumber.Value) - 1) - Len(Fields!BatchNumber.Value) \ 12)), "?")

[xian21]

Ce n'est pas une critique...

Ne t’inquiète pas je ne l'ai pas pris pour une critique.

Le code que tu m'as fourni fonctionne. Par contre, je ne vois pas ce qui etait faux dans le mien.

Sinon pour le langage. Ca ressemble a du VB.
Si tu veux verifier, cree un rapport dans VS. Prends un champs et soit tu cliques sur le bouton 'fx' soit tu cliques dans les proprietes sur value (par exemple) puis sur expression. La dans expression tu codes dans un langage qui ressemble a du VB (pour moi en tant que neophyte VB).

Merci

[ACIVE_CS]

Alors, non j'ai pas besoin de vérifier car comme on a dit plus haut on fréquente des mondes différents.

Imagine que je sois japonais, toi français et que je me casse la tête pour te dire
O
U
I
Mais que toi tu ne comprends que OUI, pourtant c'est le même résultat

Ton code fonctionne avec une chaine de 12 chr mais pas 9 parce que quand il avait 9 chr tu dépassais la sa longueur dans ta question et il ne comprend plus...

Dans ma logique, je lui demande au début
- Si il a 9 ou 12 chr on fait un calcul, sinon on affiche "?"
- au départ on prend en compte l'avant dernier chr (Len(Chaine) - 1)
- en suite on fait une division toute bête de la longueur pas 12
s'il en a 9 la division fera 0, s'il en a 12 ça fera 1 et on déduit pour avoir notre résultat

[anasschiguer]

Salut xian21,
Je sais que ta discussion est résolue mais je pense qu'il y une solution plus dynamique qui t'offrira plus de mobilité si tu rencontre à nouveau de problème concernant les formules dans un report viewer,
En effet, tu peux ajouter des paramètres pour ton rapport, dans un texte field du rapport, tu met comme formule ton paramètre, puis dans le code du formulaire qui lui donne naissance, tu donne une valeur à ce paramètre.
le code minimal est le suivant :

Code :

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

1
2
3
4
5
6
7
8
 
       Dim paramList As New Microsoft.Reporting.WinForms.ReportParameterCollection
       Dim valeurParam As String = Form1.TextBox1.Text  'Bien suur sous vb.net tu peux mettre n'importe quelle formule
       paramList.Add(New Microsoft.Reporting.WinForms.ReportParameter("monParametre",valeurParam )
'monParametre est le name de ton parametre dans le rapport.
                Form1121.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
        Form1121.ReportViewer1.LocalReport.SetParameters(paramList)
'tu dois rafraichir le rapport dans le formulaire correspondant

Pour ajouter un parametre dans ton rapport sous visual studio 2010, tu ouvre la fenetre conception de ton rapport, tu appuie Ctrl+Alt+D, dans la fenetre qui s'ouvre, tu click bouton droit le petit dossier correspondant à Paramètres -> ajouter un paramètre, et fais attention à son name, il faut qu'il correspond à celle dans ton formulaire, ensuite tu coches "Autoriser une valeur vide" si jamais tu peux ne rien afficher dans ton textField par exemple, sinon tu dois t'assurer que tu passe une valeur à ton paramètre avant de passer au rapport sinon le contenu ne s'affichera pas à l'execution et il t'affichera une sorte d'erreur.
L'avantage : tu programme toujours en vb.net donc pas besoin de se limiter par les fonctions du rapport lui meme.

[xian21]

Merci, a tous les deux.
Je teste ta solution des que je peux anasschiguer.