Importer fichier texte listview [Résolu]

Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 29 nov. 2015 à 11:28 - Dernière réponse : Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention
- 9 déc. 2015 à 10:32
Bonjour,

J'aimerais qu'une de mes listviews puisse lire le contenu d'un fichier texte, seriez-vous me guider.

Merci d'avance
Afficher la suite 

Votre réponse

14 réponses

ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 29 nov. 2015 à 11:32
0
Utile
Bonjour,
Un fichier texte de quelle nature ? Structuré ou non ?
Et si structuré : comment l'est-il ?
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 29 nov. 2015 à 15:39
Qu'entends-tu par fichier structuré ?
Commenter la réponse de ucfoutu
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 29 nov. 2015 à 11:50
0
Utile
Pour l'instant voici le code :

If Text1.Text = "" Then
MsgBox "attention", vbCritical, " Information"
Else
Form2.Text1.Text = Text1.Text
Form2.Show

Open "C:\NOTE.TXT" For Append As #1
Print #1, Text1.Text

Close #1
Text1.Text = ""
End If


Par la suite je dois aussi enregistré une date avec le contenu de ma textbox, donc ça sera structuré, mais je n'y suis pas encore.

Exemple voulu: Nom date
Commenter la réponse de Legros4960
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - Modifié par ucfoutu le 29/11/2015 à 11:58
0
Utile
Ce bout de code que tu nous montres-là ne répond NULLEMENT, ni de près, ni de très loin, à la question pourtant claire que je t'ai posée !

Pour distribuer le contenu d'un fichier texte entre les différentes cellules d'une listview, il faut NECESSAIREMENT en connaître la structure exacte.
Si tu n'y "es pas encore", cela veut dire que tu mets la charrue avant les boeufs.

EDIYT : te viendrait-il à l'idée, par exemple, de jouer à un jeu de cartes sans même savoir de quel jeu il s'agit ? Et tu jouerais alors comment ?

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Commenter la réponse de ucfoutu
cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 29 nov. 2015 à 12:14
0
Utile
Bonjour,

Petite recherche sur Google et voilà:

http://checktechno-fr.blogspot.fr/2012/12/remplir-listview-vbnet-avec-fichier.html
Commenter la réponse de cs_Le Pivert
cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 29 nov. 2015 à 12:17
Commenter la réponse de cs_Le Pivert
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 29 nov. 2015 à 15:43
0
Utile
J'avais vu ce topic, mais étant sous VB6, je ne me suis gère arrêter plus longtemps dessus. La syntaxe n'est pas identique.
Commenter la réponse de Legros4960
cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 29 nov. 2015 à 15:53
0
Utile
Ce qui m'a trompé, c'est que tes dernières questions étaient sous VB.Net. Donc le lien que je t'ai donné n'a pas d'utilité pour toi. Je te laisse donc avec ucfoutu que je salue
Bonne continuation

@+ Le Pivert
Commenter la réponse de cs_Le Pivert
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 29 nov. 2015 à 15:59
0
Utile
Oui, je suis sous VB6 au boulot et on va migrer vers dotnet, d'où le faite que je jongle entre les deux.
Commenter la réponse de Legros4960
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 29 nov. 2015 à 18:13
0
Utile
Tu m'as posé cette question assez surprenante :
Qu'entends-tu par fichier structuré ?

Il s'agit tout simplement de la manière dont il est composé/écrit
Exemple :
toto
titi
tata
toto1
titi1
tata1
est différent de
toto,titi,tata
toto1,titi1,tata1
et différent de
"toto","titi","tata"
"toto1","titi1","tata1"
etc ...
et tu es jusqu'à présent bien le seul à pouvoir répondre à cette question.


Commenter la réponse de ucfoutu
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 29 nov. 2015 à 19:28
0
Utile
Il n'est pas structuré, je n'ai pas encore défini la longueur du texte par ligne, c'est tout simplement du texte ajouté aux lignes qui précède.
Commenter la réponse de Legros4960
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 29 nov. 2015 à 20:00
0
Utile
Hé bien commence par cela (la structure que tu veux lui donner) !
Le reste ne pourra venir qu'ENSUITE, en fonction de cette structure, parfaitement établie et définie !
Une autre fois : ce sont les boeufs, que l'on met devant une charrue pour labourer ... et jamais l'inverse !
Commenter la réponse de ucfoutu
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 9 déc. 2015 à 10:13
0
Utile
Bonjour amis programmeur,

Suite aux conseils de ucfoutu je suis parvenu à mes fin concernant le fichier. Le soucis de maintenant est le faite que dans ma listView, j'ai une boucle qui tourne et qui me mets plusieurs fois les mêmes enregistrements. ( le ficher est un fichier test, car le bon est au boulot)

La vue de ma listView:


Le code VB :

Private Sub Form_Load()
ListViewFiles.ColumnHeaders.Add , , "Lignes"
ListViewFiles.ColumnHeaders.Add , , "Alarmes"
ListViewFiles.ColumnHeaders.Add , , "Date"
ListViewFiles.ColumnHeaders.Add , , "Heure"

ListViewFiles.View = lvwReport
Dim ligne As String
Dim nFic
Dim itmX As ListItem
Dim i As Integer
nFic = FreeFile
Open "C:\NOTE.TXT" For Input As nFic

'On Error GoTo ErrOuv
Do While Not EOF(nFic)
Line Input #nFic, ligne

For i = 0 To 15
Set itmX = ListViewFiles.ListItems.Add()

itmX.Text = ligne
'itmX.SubItems(1) = "2"
'itmX.SubItems(2) = "3"

Next i
Loop
Close nFic
Exit Sub
End Sub


D'avance merci pour vos lumières.
Legros4960 25 Messages postés dimanche 20 septembre 2015Date d'inscription 10 janvier 2016 Dernière intervention - 9 déc. 2015 à 10:32
OK trouvé
Commenter la réponse de Legros4960

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.