Probleme : String >> 255 caracteres ?? [Résolu]

cs_Danyz 98 Messages postés dimanche 20 juillet 2003Date d'inscription 31 octobre 2006 Dernière intervention - 4 janv. 2005 à 21:47 - Dernière réponse : cs_Danyz 98 Messages postés dimanche 20 juillet 2003Date d'inscription 31 octobre 2006 Dernière intervention
- 5 janv. 2005 à 00:25
Voila , j'ai fait un programme de base de données pour gerer des collections d'albums audio.

Je vient de mettre une option pour changer la casse des textes.
Pour ca j'ai ecrit dans un modul des petites fonctions , elles marchent tres bien sauf que elle ne depassent pas 255 caracteres ???

Public Function CasseMinuscule(Expression As String)
If Len(Expression) < 1 Then Exit Function
CasseMinuscule = Format(Expression, "<")
End Function


Public Function CasseMajuscule(Expression As String)
If Len(Expression) < 1 Then Exit Function
CasseMajuscule = Format(Expression, ">")
End Function

Public Function CasseDeMot(Expression As String)

Dim i As Integer

If Len(Expression) < 1 Then Exit Function
Expression = Format(Expression, "<")
Mid(Expression, 1, 1) = Format(Mid(Expression, 1, 1), ">")
For i = 1 To Len(Expression) If Mid(Expression, i, 1) " " Then Mid(Expression, i + 1, 1) Format(Mid(Expression, i + 1, 1), ">")
Next

CasseDeMot = Expression

End Function

Puis dans mon code j'utilise CasseDeMot(RC!Pistes) par exemple, et ca me retourne seulement les 255 premiers caracteres.

d'ou vien le probleme ?? le type String est pas variable ??
Afficher la suite 

7 réponses

Meilleure réponse
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 4 janv. 2005 à 23:59
3
Merci
UCase renvoit un Variant alors que UCase$ renvoit une String. Comme tu travaille en String, mieux vaut utiliser les version $ de ces fonctions


Christophe R

Merci crenaud76 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

cs_Danyz 98 Messages postés dimanche 20 juillet 2003Date d'inscription 31 octobre 2006 Dernière intervention - 4 janv. 2005 à 22:08
0
Merci
Puis quand je fait ca :

Public Function CasseMajuscule(Expression As String)

MsgBox Expression

If Len(Expression) < 1 Then Exit Function
CasseMajuscule = Format(Expression, ">")

MsgBox CasseMajuscule

End Function

Le premier msgbox me donne l'expression complete , alors que la deuxieme me donnne seulement 255 caractere .....
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 4 janv. 2005 à 22:15
0
Merci
Et ça, tu connais ?
Msgbox UCase$(Expression) et Msgbox LCase$(Expression) ?


Christophe R
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 4 janv. 2005 à 22:18
0
Merci
Sinon, si vraiment tu veux utiliser tes fonctions :
1- Donne leur un type retour : Function CasseMajuscule(...) AS STRING
2- La ligne "If Len(Expression) < 1 Then Exit Function" me semble inutile !!


Christophe R
cs_Danyz 98 Messages postés dimanche 20 juillet 2003Date d'inscription 31 octobre 2006 Dernière intervention - 4 janv. 2005 à 22:19
0
Merci
Vi ca marche , ca venait du Format alors ?

et c koi la difference entre UCase et UCase$ ?

Merci
cs_Danyz 98 Messages postés dimanche 20 juillet 2003Date d'inscription 31 octobre 2006 Dernière intervention - 4 janv. 2005 à 22:23
0
Merci
desolé pour le "If Len(Expression) < 1 Then Exit Function" , c'est que en fait dans la fonction il y a deux / trois autre choses , la j'avait isolé juste la partie qui posait probléme mais j'ai oublié d'enlever la ligne.

visiblement c l'instruction Format qui etait le probleme , elle peut pas traiter + de 255 caracteres ??
cs_Danyz 98 Messages postés dimanche 20 juillet 2003Date d'inscription 31 octobre 2006 Dernière intervention - 5 janv. 2005 à 00:25
0
Merci
Merci pour l'explication , c'est cool ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.