Arreter et reprendre un FOR

Version imprimable

Bonjour,

Je suis en train de faire une recherche dans une liste de nom (csv) avec des homonymes.
Je souhaiterais, soit qu'il me propose une liste de tout ce qu'il trouve en fonction de ma demande, soit que je puisse faire "suivant" si ce n'est pas le bon.

Ex : je tape "TOTO", il me propose "TOTO Eric", "TOTO Jacques", "TOTO Pierre" etc

Actuellement, il ne me propose que le dernier de la liste.

Voici mon code actuel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\liste.csv")
                MyReader.TextFieldType = FileIO.FieldType.Delimited
                MyReader.SetDelimiters(";")
 
                Dim currentRow As String()
                While Not MyReader.EndOfData
                    Try
                        currentRow = MyReader.ReadFields()
                        Dim currentField As String
                        'affiche le resultat
                        For Each currentField In currentRow
 
                            If currentRow(0).Contains(TextBox1.Text) Then
                                Label8.Text = currentRow(1)
                                Label9.Text = currentRow(2)
                                Label10.Text = currentRow(3)
                                Label11.Text = currentRow(7)
                                Label12.Text = currentRow(4)
 
                            End If
                        Next
 
                End While
            End Using

Merci

Code:

1
2
3
4
5
6
 
                                Label8.Text = currentRow(1)
                                Label9.Text = currentRow(2)
                                Label10.Text = currentRow(3)
                                Label11.Text = currentRow(7)
                                Label12.Text = currentRow(4)

A chaque fois que tu trouves une personne, tu écrases tes anciennes données.
Tu t'en sortirais plus facilement en utilisant par exemple un combobox.

Bonjour,
Un bout de code à adapter :
Une classe ToolNext :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class ToolNext(Of T)
 
	Private _datas As IEnumerable(Of T)
	Private _index As Integer
 
	Public Sub New(datas As IEnumerable(Of T))
		_datas = datas
		_index = 0
	End Sub
 
	Public Function [Next]() As T
		If _index < _datas.Count() Then
			_index += 1
			Return _datas.ElementAt(_index - 1)
		Else
			Return Nothing
		End If
	End Function
End Class

Et dans le formulaire windows :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Partial Class Form1
	Inherits Form
 
	Private _tool As ToolNext(Of String)
 
	Public Sub New()
		InitializeComponent()
		_tool = New ToolNext(Of String)(New String() {"val 1", "val 2", "val 3"})
	End Sub
 
	Private Sub ButtonNext_Click(sender As Object, e As EventArgs)
		Dim suivant As String = _tool.[Next]()
		If Not String.IsNullOrEmpty(suivant) Then
			TextBox1.Text = suivant
		End If
	End Sub
End Class

12/12/2014, 12h57
Bruce Campbell

Merci, du coups,
j'ai tout mis dans un listbox avec un ListBox1.Items.Add(xxxx) a chaque boucle.