Accueil > > > FONCTION SPLIT (DISSOCIER) POUR LES UTILISATEURS DE VB5
 FONCTION SPLIT (DISSOCIER) POUR LES UTILISATEURS DE VB5
 Information sur la source
 Description
Ce code permet aux utilisateurs de VB5 d'employer la fonction Split (Dissocier), qui n'est apparue en Visual Basic qu'à partir de la version 6.
 Source
- Function Dissocier(Chaîne As String, Optional Balise As String = _
- " ") As Variant
- Dim Éléments() As String, LongChaîne As Long, PrécBalise As Long
- K = -1
- 'Cas où aucune balise n'est spécifiée : le tableau n'a qu'une
- 'entrée qui contient toute la chaîne
- If Len(Balise) = 0 Then
- ReDim Éléments(0)
- Éléments(0) = Chaîne
- GoTo Fin
- End If
- Do
- K = K + 1
- LongChaîne = Len(Chaîne)
- 'Recherche le dernier caractère avant la balise
- PrécBalise = InStr(1, Chaîne, Balise, vbBinaryCompare) - 1
- 'Quand il n'y a plus d'occurrence de la balise, récupère
- 'la fin de la chaîne
- If PrécBalise = -1 Then PrécBalise = LongChaîne
- 'Insère les données dans une entrée du tableau
- ReDim Preserve Éléments(K)
- Éléments(K) = Mid(Chaîne, 1, PrécBalise)
- If PrécBalise = LongChaîne Then Exit Do
- 'Réduit la chaîne
- Chaîne = Right(Chaîne, LongChaîne - PrécBalise - Len(Balise))
- Loop
- Fin:
- Dissocier = Éléments()
- End Function
Function Dissocier(Chaîne As String, Optional Balise As String = _
" ") As Variant
Dim Éléments() As String, LongChaîne As Long, PrécBalise As Long
K = -1
'Cas où aucune balise n'est spécifiée : le tableau n'a qu'une
'entrée qui contient toute la chaîne
If Len(Balise) = 0 Then
ReDim Éléments(0)
Éléments(0) = Chaîne
GoTo Fin
End If
Do
K = K + 1
LongChaîne = Len(Chaîne)
'Recherche le dernier caractère avant la balise
PrécBalise = InStr(1, Chaîne, Balise, vbBinaryCompare) - 1
'Quand il n'y a plus d'occurrence de la balise, récupère
'la fin de la chaîne
If PrécBalise = -1 Then PrécBalise = LongChaîne
'Insère les données dans une entrée du tableau
ReDim Preserve Éléments(K)
Éléments(K) = Mid(Chaîne, 1, PrécBalise)
If PrécBalise = LongChaîne Then Exit Do
'Réduit la chaîne
Chaîne = Right(Chaîne, LongChaîne - PrécBalise - Len(Balise))
Loop
Fin:
Dissocier = Éléments()
End Function
 Conclusion
Bonne programmation à tous.
 Historique
- 15 mai 2005 17:14:58 :
- Alignement des commentaires
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
pas de split avec VB5 ? [ par atoguum4ever ]
Bonjour à tousj'utilise VB 5 et je n'arrive pas à me servir de la fonction splitest-ce qu'elle existe sour VB 5 ??voilà mon code : Dim
Split sans Split [ par elolydie ]
Bonjour,Je cherche à renvoyer un tableau de string à partir d'une chaîne de caractères qui contient des séparateurs.H&#
Petite question sur Mscomm32 [ par lordko ]
Bonjour,Je pensais pouvoir éviter de faire patienter mon application quand je lancais une commande AT et que j'attendais la réponse compl
Retourner chaîne de caractére split [ par talking ]
Voilà j'ai une variable du style :test = "Str1|Sti1|Sto1|Sta1,Str2|Sti2|Sto2|Sta1,etc"et moi je voudrais retourner un par un:Str1Sti1STo1etcmoi c
problème pour utiliser vb5 [ par DjenT ]
Bonjour, je viens de commencer le vbscript mais je ne trouve pas d'application vb( je fait juste avec le bloc note )pourriez vous me dire ouen trouver
Split de VB 6 [ par joro ]
Quel est l'équivalent, en "VB 5", de l'instruction "Split" employée en VB 6.Joro
Récupérer code VB3 avec VB5 [ par grenault72 ]
Bonjour,Voilà j'ai un problème : je n'arrive pas à récupérer un vieux projet écrit en VB3 et auquel je tiens beaucoup av
*VB5* *VB6* |Affichage d'un PDF au lieu d'un HLP| [ par JLB59 ]
Bonjour à tous,Est-ce que QQ1 connait le moyen de faire afficher une aide avec un fichier PDF ?Avant, j'avais un HLP, mais comme j'ai pu faire un
*VB5* |Enreg. VB vers Excel| [ par JLB59 ]
Bonjour à tous,QQ1 pourrait m'aider SVP car je voudrais écrire des enregistrements vers excel avec si possible un en-tête pour chaque c
[VB5 ou VB.NET] Modifier des ressources [ par zippro4012 ]
La question est simple : comment lire et modifier les resources d'un executables existant en VB5 ou VB.NET ?
|
Derniers Blogs
 ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|