[vb(a)] je veux faire fonction qui separe une chaine de char en deux

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [vb(a)] je veux faire fonction qui separe une chaine de char en deux

emouchet

Public Function SeparationChaineEnDeux(ChainePricipale As String, TaillePremiereChaine As Integer, TailleDeuxiemeChaine As Integer) As String
Dim Count As Long
Dim LongueurChaineAdresse As Integer
Count = 1
ReDim SeparationChaineEnDeux(1) 'le résultat sera un tableau de deux éléments (numerotés 0 et 1)
If Len(ChainePricipale) + 1 > TaillePremiereChaine + TailleDeuxiemeChaine Then
LongueurChaineAdresse = TaillePremiereChaine + TailleDeuxiemeChaine
Else
LongueurChaineAdresse = Len(ChainePricipale) + 1
End If
Do While Mid(ChainePricipale, Count, 1) <> Chr(13) And Count < LongueurChaineAdresse And Count < TaillePremiereChaine
'Je compte les char jusqu'au retour chariot ou la fin de la chaine
'ou TaillePremiereChaine
Count = Count + 1
Loop
'Je mets le tronçon jusqu'à Count dans
Me.Adresse_de_facturation = Left(Me.Adresse, Count)
'mettre dans deuxvaleurs de renvoie...
If Count + 1 <= LongueurChaineAdresse Then
If Mid(Me.Adresse, Count, 1) = Chr(13) Then
'je recopie la chaine à partir de Count mais sans le retour chariot
SeparationChaineEnDeux(0) = Mid(Me.Adresse, Count + 2, LongueurChaineAdresse - (Count + 2))
Else
'il n'y a pas de retour chariot
SeparationChaineEnDeux(1) = Mid(Me.Adresse, Count + 1, LongueurChaineAdresse - (Count + 1))
End If
End If
End Function

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

Publicité

drasche

euh skoi la question? :??:

comment tu prévois de renvoyer 2 chaînes?

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

emouchet

ben ouais ma question est comment je renvoie les deux chaines ... un tableau mais comment je fais un tableau ???
Bon j'ai vu qu'il y avais certaines erreurs dans les variables mais bon ... c'est pas le plus important.

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

drasche

ben ya plus simple: tu passes deux variables string par référence et tu récupères leur contenu après appel:

Code :

Public Sub SplitString(ByRef strSource, ByVal lStrSize1 As Long, ByVal lStrSize2 As Long, ByRef strDest1 As String, ByRef strDest2 As String)
strDest1 = Mid$(strSource, 1, lStrSize1)
strDest2 = Mid$(strSource, lStrSize1 + 1, lStrSize2)
End Sub

voilà, ça fait 4 lignes et ça plante pas, même si la chaîne est vide

edit: j'ajoute que si tu spécifies pas ByVal ou ByRef, c'est ByRef qui est pris par défaut (en .NET ce sera ByVal).

Message édité par drasche le 25-04-2003 à 13:51:11

emouchet

oki ca marche peut etre mais ...
ce que je veux faire c'est:

j'ai un champ texte
j'en recupere la premere ligne ou les n premiers caracteres.
je mets ces caracteres dans un autre champ texte
je mets le reste dans un troisieme champ texte

j'ai essayé ta methode en faisant :

Code :

Public Sub SeparationChaineEnDeux(ByRef ChainePricipale As String, ByVal TaillePremiereChaine As Integer, ByVal TailleDeuxiemeChaine As Integer, ByRef PremiereChaine As String, ByRef SecondeChaine As String)

puis :

Code :

PremiereChaine = Left(ChainePricipale, Count)
SecondeChaine = Mid(ChainePricipale, Count + 1, LongueurChaineAdresse - (Count + 1))

pour info : quand je fais l'appel de la fonction je fais :

Code :

SeparationChaineEnDeux(Me.Adresse, 100, 50,Me.Adresse_de_facturation,Me.Adresse_2_de_Facturation)

et là il me dit "Attendu '=' "

comprend po

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

emouchet

J'ai trouvé... il suffit de faire Call pour appeler la fonction ...
Et le types ne sont pas string mais textbox...
Voila mici a toi

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

drasche

bon un truc pour alléger un peu ton code: utilise les chiffres comme. Ca sera beaucoup plus lisible

Ensuite, tu peux laisser tomber les Me: ils référencent l'objet dans lequel tu te trouves, et à moins qu'il existe des variables portant le même nom que tes champs ailleurs, leur mention est inutile.

Il y a une faute d'ortho sur "pricipale" qui doit être "principale"

Tu as omis de préciser d'où vient Count :??:

sur quelle ligne l'erreur arrive-t-elle? Sur l'appel de fonction lui même? Si c'est le cas, vérifie bien tes paramètres, on sait jamais

emouchet

Maintenant ca marche mais deux questions pour toi :

j'utilise les chiffres comme quoi ?
Je veux maintenant que les deux tailles correspondent a des champ dans ma base ...

J'utilise

Code :

TailleChampAdresseFacturation = Me.Recordset.Fields(Me.Adresse_de_facturation.ControlSource).Size
TailleChampAdresseFacturation2 = Me.Recordset.Fields(Me.Adresse_2_de_Facturation.ControlSource).Size

Mais si l'un des deux champs contien la valeur NULL ca merde ... tu ne saurais pas comment faire...
Merci

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

drasche

tiens je n'ai pas de propriété Size chez moi. Tu bosserais pas en Access et/ou avec DAO par hasard? (histoire que je m'y retrouve)

emouchet

En acces oui ... :jap:
Enfin maintenant tout marche ... si tu veux je peux meme poster le code ...
@ toi de voir ... :-) :hello:

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

Publicité

drasche

oui parce que j'ai rien en DAO ici et je suis curieux

:hello:

emouchet

Voici ma fonction telle quelle est actuellement :

Code :

Public Sub SeparationChaineEnDeux(ByRef TextBoxPrincipale As TextBox, ByVal TaillePremiereChaine As Integer, ByVal TailleDeuxiemeChaine As Integer, ByRef PremiereTextBox As TextBox, ByRef SecondeTextBox As TextBox)
Dim Count As Long
Dim LongueurChainePrincipale As Integer
PremiereTextBox = Null
SecondeTextBox = Null
Count = 1
If Len(TextBoxPrincipale) + 1 > TaillePremiereChaine + TailleDeuxiemeChaine Then
LongueurChainePrincipale = TaillePremiereChaine + TailleDeuxiemeChaine
Else
LongueurChainePrincipale = Len(TextBoxPrincipale) + 1
End If
Do While Mid(TextBoxPrincipale, Count, 1) <> Chr(13) And Count < LongueurChainePrincipale And Count < TaillePremiereChaine
'Je compte les char jusqu'au retour chariot ou la fin de la chaine
'ou TaillePremiereChaine
Count = Count + 1
Loop
If Count + 1 <= LongueurChainePrincipale Then
If Mid(TextBoxPrincipale, Count, 1) = Chr(13) Then
'je mets le premier tronçon dans le premier textBox
PremiereTextBox = Left(TextBoxPrincipale, Count - 1)
'je recopie la chaine à partir de Count mais sans le retour chariot
'TabTemp(1) = Mid(ChainePricipale, Count + 2, LongueurChaineAdresse - (Count + 2))
SecondeTextBox = Mid(TextBoxPrincipale, Count + 2, LongueurChainePrincipale - (Count + 2))
Else
'je mets le premier tronçon dans le premier textBox
PremiereTextBox = Left(TextBoxPrincipale, Count)
'il n'y a pas de retour chariot
'TabTemp(1) = Mid(ChainePricipale, Count + 1, LongueurChaineAdresse - (Count + 1))
SecondeTextBox = Mid(TextBoxPrincipale, Count + 1, LongueurChainePrincipale - (Count + 1))
End If
Else
'on n'ecrit rien dans la ligne adresse 2
PremiereTextBox = Left(TextBoxPrincipale, Count)
End If
End Sub

Et Voila ce qui me permet de l'appeler :

Code :

Private Sub RecopierAdresse_txtBtn_Click()
Dim TailleChampAdresseFacturation As Integer 'valeur de la base de donnée
Dim TailleChampAdresseFacturation2 As Integer 'valeur de la base de donnée
Dim TabResultTraitementAdresse() As String
TailleChampAdresseFacturation = Me.Recordset.Fields(Me.Adresse_de_facturation.ControlSource).Size
TailleChampAdresseFacturation2 = Me.Recordset.Fields(Me.Adresse_2_de_Facturation.ControlSource).Size
Me.Raison_sociale_de_facturation = Me.Raison_sociale
Me.Contact_de_Facturation = Me.Contact
Me.Code_Postal_de_facturation = Me.Code_postal
Me.Ville_de_facturation = Me.Ville
Call SeparationChaineEnDeux(Me.Adresse, TailleChampAdresseFacturation, TailleChampAdresseFacturation2, Me.Adresse_de_facturation, Me.Adresse_2_de_Facturation)
End Sub

Voila :sol:

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.

drasche

je sais que je l'ai déjà dit, mais je te conseille vraiment de raccourcir le nom de tes variables, car avec l'habitude, tu verras qu'il est beaucoup plus efficace de coder, et tes pages de code seront moins chargées, donc plus lisibles

MagicBuzz

C'est pourtant pas compliqué de faire ça proprement...
C'est en VBS. Pour passer dans VB, faut quand même rajouter les types.

Code :

dim str
dim pos
dim res
str = ""
pos = 0
do while str = ""
str = inputbox("Chaîne ?" )
loop
do while pos = 0
on error resume next
pos = cint(inputbox("Couper à l'index ?" ))
if err <> 0 then
pos = 0
elseif pos > len(str) then
pos = 0
end if
on error goto 0
loop
res = couperChaine(str, pos)
msgbox(res(1))
msgbox(res(2))
function couperChaine(chaine, index)
dim workTab(2)
workTab(1) = mid(str, 1, pos)
workTab(2) = mid(str, pos + 1)
couperChaine = workTab
end function

Message édité par MagicBuzz le 27-04-2003 à 03:41:16

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[vb(a)] je veux faire fonction qui separe une chaine de char en deux

Sujets relatifs
[XML + DOM] fonction writetofile() ne marche pas	[PHP] Récupération d'une partie d'une chaîne de caractères
fonction mail() probleme avec la gestion des emails non envoyé	Recherche dans une chaine
[PHP] recherche de motifs dans une chaîne, regex	Besoin d'aide sur la fonction "formulaire"
[asp / vbs] Appeler une fonction...	[C] Allocation dynamique et fonction.
[JS / VBS ? ] Fonction pour executer un programme ?	chaine de longeur fixe [facile mais jy arrrive po]
Plus de sujets relatifs à : [vb(a)] je veux faire fonction qui separe une chaine de char en deux

Page générée en 0.071 secondes