créer fichier texteRésolu

Question

Salut tous le monde



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Je cherche comment faire pour créer des fichiers texte a partir d’une listbox où il y a des liens http je veux regrouper tous les lien qui on le même mots entre http:// et .com dans un même fichier nommer du mots entre http:// et .com



 




Merci d’avances

Renfield · Accepted Answer

Ca ne fonctionnera pas...
tu utilises i pour ton For, et dans ta boucle....

il te faut quelque chose du genre :

Dim nStart As Long
Dim nEnd As Long
Dim sBuffer As String
Dim i As Long
    For i = 0 To List1.ListCount - 1
        sBuffer = List1.List(i)
        nStart = InStr(1, sBuffer, "://", vbBinaryCompare)
        nEnd = InStr(1, sBuffer, ".com", vbBinaryCompare)
        
        If nStart > 0 And nEnd > 0 Then
            List2.AddItem Mid$(sBuffer, nStart + 3, nEnd - nStart + 1)
        End If
    Next i

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jmfmarques · Answer

Pour extraire tes chaines "utiles" : Utilise Instr et Mid (aide en ligne)

Pour écire dans un fichier texte : Open .....For Output  et Open.... For Append (aide en ligne + de très nombreux exemples sur ce forum)

Pour lire tous tes articles de la listbox : une boucle sur ses indexes.

Reviens avec un code d'essai utilisant celà, au besoin (si tu rencontres une difficulté particulière )

jmfmarques · Answer

Rectif !
Tu peux déjà supprimer le 3ème point, dont tu as déjà la solution dans cette discussion ouverte par toi et laissée sans suite !!!
http://www.vbfrance.com/infomsg_SUPRIMER-LINE-DANS-LISTBOX_871768.aspx#2

cs_Exploreur · Answer

Salut,
De plus en me servant du moteur de recherche avec ton titre de post, tu trouves dessuite la réponse à ta question et avec le post dont parle Jmfmarques !!
Il faudrait utiliser les outils de VbFrance mis à ta disposition, pour résoudre tes questions qui sont d'un ordre récurant...Je veux dire par là, qu'il y a pleins d'exemples disponibles...Et puis penser aux personnes qui se penchent sur tes questions en te donnant une réponse valide et juste, de valider celles-ci, non?
Encore une fois je précise : C'est mon avis, qui n'engage que moi 

A+
Exploreur

kelm_by · Answer

j'ai essayer avec ca mais ca marche pas

Dim i As Integer
Dim j As Integer
On Error Resume Next
For i = 0 To List1.ListCount - 1 Step 1
List1.Selected(i) = True
Text1.Text = List1.Text
i = InStr(1, Text1.Text, ".com/", vbBinaryCompare)
j = InStr(1, Text1.Text, "..", vbBinaryCompare)
ch = Mid(Text1.Text, i + 1, j - i - 1)
List2.AddItem ch
Next

kelm_by · Answer

merci Renfield

Créer fichier texte

6 réponses

Votre réponse

Discussions similaires