|
|
|
|
Bonjour tout le monde,
Ce post vient à la suite du premier, en fait la chaîne que je récupère à partir du fichier est trsè dense. Et j'ai besoin de couper cette chaîne avec Split pour récupérer certains éléments précis.
Le problème c'est que quand je fais Split, eh bah ça fait rien du tout, je n'ai mm pas de message d'erreur du style, dépassement de capacité....
Une idée?
voici le code! merci!
Sub test()
Dim fp As Integer
Dim fichier, fic, monTab(), machaine(), chemin As String
fic = ""
chemin = "C:\...\relation.txt"
On Error Resume Next
fp = FreeFile
Open chemin For Input As #fp
While Not EOF(fp)
Line Input #fp, fichier
fic = fic & fichier
Wend
Close #fp
monTab = Split(fic, "<") 'Split(fic, "detailler(")
MsgBox monTab(1)
machaine = Split(Mid(monTab(1), 1), "'")
MsgBox machaine(0)
End Sub
quand je fais MsgBox de monTab(1), il n'ya rien qui s'affcihe la message box n'apparaît même pas!
Merci d'avance à tous!
Configuration: Windows XP Internet Explorer 6.0
Tu peux te servir de la fonction InStr().
InStr, fonction, exemple Cet exemple utilise la fonction InStr pour renvoyer la position de la première occurrence d'une chaîne dans une autre chaîne. Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' Chaîne dans laquelle s'effectue la ' recherche. SearchChar = "P" ' Recherche la chaîne "P". ' Une comparaison sans respect des majuscules et des minuscules commence ' à la position 4 et renvoie 6. MyPos = Instr(4, SearchString, SearchChar, 1) ' Une comparaison avec respect des majuscules et des minuscules commence ' à la position 1 et renvoie 9. MyPos = Instr(1, SearchString, SearchChar, 0) ' Par défaut (lorsque le dernier argument est omis),la recherche respecte ' les majuscules et les minuscules. MyPos = Instr(SearchString, SearchChar) ' Renvoie 9. MyPos = Instr(1, SearchString, "W") ' Renvoie 0. ;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» Nicolas Boileau |
Et quand tu fais un msgbox fic avant le split, tu as quoi ?
|
Re!!
|
Access lier les champs de deux tables différentes Base de donnée avec access 97 Commer chercher un nom dans une chaine en access Convertir date vba access Extrem split Fonction vba access Formation access 07 Ht access If en vba access Logiciel access Mot vba split excel Openrecordset access Projet vba access Tutoriel vba access 2007 Vba access "resume next" Vba excel Vba excel concaténation Vba renommer feuille
