Lire fichier texte via lecteur de flux

J'ai un nom de fichier texte list.txt qui contient des données comme suit;

AC-No.                 Name                Time        State    New State Exception
100            ZULFIQUAR 09/04/2012 01:53 PM         C/In                Invalid
100            ZULFIQUAR 10/04/2012 01:39 PM         C/In                Invalid
100            ZULFIQUAR 11/04/2012 01:38 PM         C/In                Invalid
1002                SAQIB 09/04/2012 10:42 PM         C/In        C/Out        OK
1002                SAQIB 10/04/2012 08:01 AM         C/In                     OK
1002                SAQIB 10/04/2012 10:28 PM         C/In        C/Out        OK
1002                SAQIB 11/04/2012 09:25 AM         C/In                     OK
1002                SAQIB 11/04/2012 10:40 PM         C/In        C/Out        OK
1002                SAQIB 12/04/2012 07:15 AM         C/In                     OK
1002                SAQIB 12/04/2012 11:12 PM         C/In        C/Out        OK
1002                SAQIB 13/04/2012 07:23 AM         C/In                     OK
1002                SAQIB 13/04/2012 10:53 PM OverTime Out                Invalid
1002                SAQIB 14/04/2012 06:58 AM OverTime Out                Invalid
1002                SAQIB 15/04/2012 10:50 PM         C/In                Invalid
1002                SAQIB 16/04/2012 07:09 AM         C/In                     OK
1002                SAQIB 17/04/2012 10:36 PM         C/In        C/Out        OK
1002                SAQIB 18/04/2012 07:21 AM         C/In                     OK
1002                SAQIB 18/04/2012 10:46 PM         C/In        C/Out        OK
1002                SAQIB 19/04/2012 06:32 AM         C/In                     OK
1002                SAQIB 19/04/2012 10:47 PM         C/In        C/Out        OK

maintenant je dois choisir trois colonnes(AC-Non,Nom.Temps) avec l'ensemble de la ligne et de donner datagridview sa source de données.
pour l'instant je suis à l'aide de code suivant, mais pas de chance.

Dim tbl As New DataTable("mytable")
tbl.Columns.Add("col1", GetType(String))
'tbl.Columns.Add("col2", GetType(String))
'tbl.Columns.Add("col3", GetType(Integer))
Dim sFilename As String = TextBox1.Text
Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(sFilename)
Dim line As String
Dim aRow As DataRow
Do
line = myStream.ReadLine()
If line Is Nothing Then
Exit Do
End If
Dim sAry As String() = Split(line, "    ")
aRow = tbl.NewRow
aRow(0) = sAry(0)
'aRow(1) = sAry(1)
'  aRow(2) = sAry(2)
tbl.Rows.Add(aRow)
Loop
myStream.Close()
DataGridView1.DataSource = tbl

s'il vous plaît aider moi.

  • Quelle est la question, ce qui ne fonctionne pas?
InformationsquelleAutor Asif khan | 2012-04-30
  1. 4
    Dim delimiter As String = ","
Dim fileName As String = "c:\file.txt"
Dim sr As New StreamReader(fileName)
Try
While sr.Peek() >= 0
Dim r As String = sr.ReadLine()
Dim items As String() = r.Split(delimiter.ToCharArray())
End While
Finally
sr.Close()
End Try
    • Grâce Rajeesh. mais toujours pas de succès. En fait je souhaite avoir des données sans espaces, parce que je dois insérer l'ensemble de la colonne dans la table sql 03 colonnes insérer dans la table sql du 03 colonnes avec des tas de lignes. veuillez passer en revue
    • Merci à vous pour votre aide.
    InformationsquelleAutor Rejeesh
  2. 2

    En supposant que 1) vous avez montré un fichier fixe avec des largeurs de colonne, 2) vous aurez besoin de temps comme un DateTime plutôt qu'une chaîne et 3) que les CA-Non. est vraiment une chaîne de caractères et un entier:

    Imports System.Globalization
Sub GetData()
Dim tbl As New DataTable("mytable")
tbl.Columns.Add("col1", GetType(String))
tbl.Columns.Add("col2", GetType(String))
tbl.Columns.Add("col3", GetType(DateTime))
Dim sFilename As String = "C:\temp\testdata.txt"
Using myStream As System.IO.StreamReader = New System.IO.StreamReader(sFilename)
Dim ac As String
Dim username As String
Dim clocktime As DateTime
Dim culture As CultureInfo = CultureInfo.CreateSpecificCulture("en-GB")
Dim line As String
Dim aRow As DataRow
While Not myStream.EndOfStream
line = myStream.ReadLine().TrimEnd
' check line is long enough to be valid
If line.Length >= 48 Then
' take the first 8 characters as AC-No.
ac = line.Substring(0, 8).Trim
' a valid line does not start with "AC-No"
If Not ac.StartsWith("AC-No") Then
' extract the name and remove any extra spaces
username = line.Substring(9, 20).Trim
' extract the time and convert it to a DateTime
clocktime = DateTime.Parse(line.Substring(29, 19), culture, DateTimeStyles.AllowWhiteSpaces)
aRow = tbl.NewRow
aRow(0) = ac
aRow(1) = username
aRow(2) = clocktime
tbl.Rows.Add(aRow)
End If
End If
End While
End Using
DataGridView1.DataSource = tbl
' example of formatting the third column
DataGridView1.Columns(2).DefaultCellStyle.Format = "dd-MMM-yyyy HH:mm"
End Sub

    (Testé travail dans les VB2010 avec vos données comme indiqué.)

    • Merci c'est utile
    • Vous êtes les bienvenus. Si cela répond à votre question, s'il vous plaît marquer comme réponse.
    InformationsquelleAutor Andrew Morton
  3. 0

    juste une suggestion, essayez mystream.readtoend (), puis couper à chaque vbnewline après que vous avez une chaîne distincte pour chaque ligne, où u peut le débogage et de jouer jusqu'à ce que vous obtenez le bon résultat.

    • Merci pour votre suggestion.
    InformationsquelleAutor Tawfik Khalifeh