importer fichier texte listviewRésolu

Question

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

ucfoutu · Answer

Bonjour,
Un fichier texte de quelle nature ? Structuré ou non ? 
Et si structuré : comment l'est-il ?

Legros4960 · Answer

Pour l'instant voici le code : 

If Text1.Text = "" ThenMsgBox "attention", vbCritical, " Information"ElseForm2.Text1.Text = Text1.TextForm2.ShowOpen "C:\NOTE.TXT" For Append As #1Print #1, Text1.TextClose #1Text1.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

ucfoutu · Answer

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.

cs_Le Pivert · Answer

Bonjour,

Petite recherche sur Google et voilà:

http://checktechno-fr.blogspot.fr/2012/12/remplir-listview-vbnet-avec-fichier.html

cs_Le Pivert · Answer

J'espère que cette fois ci tu donneras suite, contrairement a ces 2 derniers post:

http://codes-sources.commentcamarche.net/forum/affich-10056852-heure-et-text-box#p10056852

http://codes-sources.commentcamarche.net/forum/affich-10056332-structure-bdd-et-lien-formulaire#p10056332

Legros4960 · Answer

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.

cs_Le Pivert · Answer

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

Legros4960 · Answer

Oui, je suis sous VB6 au boulot et on va migrer vers dotnet, d'où le faite que je jongle entre les deux.

ucfoutu · Answer

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.

Legros4960 · Answer

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.

ucfoutu · Answer

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 !

Legros4960 · Answer

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 = lvwReportDim ligne As StringDim nFicDim itmX As ListItemDim i As IntegernFic = FreeFileOpen "C:\NOTE.TXT" For Input As nFic'On Error GoTo ErrOuv    Do While Not EOF(nFic)    Line Input #nFic, ligneFor i = 0 To 15     Set itmX = ListViewFiles.ListItems.Add()          itmX.Text = ligne     'itmX.SubItems(1) = "2"     'itmX.SubItems(2) = "3" Next iLoop Close nFic Exit SubEnd Sub

D'avance merci pour vos lumières.

Importer fichier texte listview

12 réponses

Votre réponse

Discussions similaires