og jeg ønsker at søge efter et bestemt værdi i første felt i hver linje og så skrive hvert felt i den fundne linje ind i hver sin text box
jeg har prøvet med følgene code, men dur kun med den første række
Public Sub readfile()
Dim strfilename As String Dim num_rows As Long Dim num_cols As Long Dim x As Integer Dim y As Integer Dim strarray(1, 1) As String
strfilename = Form1.optionfile
' Load the file. 'strfilename = "test.csv" 'strfilename = "C:\Documents and Settings\Kim Almind Pedersen\Skrivebord\Tekst.txt" 'Check if file exist If File.Exists(strfilename) Then Dim tmpstream As StreamReader = File.OpenText(strfilename) Dim strlines() As String Dim strline() As String
'Load content of file to strLines array strlines = tmpstream.ReadToEnd().Split(Environment.NewLine)
' Copy the data into the array. For x = 0 To num_rows strline = strlines(x).Split(";") For y = 0 To num_cols strarray(x, y) = strline(y) If strline(y) = Form1.TextBox1.Text Then Form1.TextBox2.Text = Form1.TextBox2.Text & vbCrLf & strline(0) & "," & strline(1) & "," & strline(2)
Imports System Imports System.IO Imports System.Collections.Generic
Namespace E Public Class Data Public Property V1() As String Get Return m_V1 End Get Set m_V1 = Value End Set End Property Private m_V1 As String Public Property V2() As Decimal Get Return m_V2 End Get Set m_V2 = Value End Set End Property Private m_V2 As Decimal End Class Public Class Program Public Shared Function Find(fnm As String, v0 As String) As List(Of Data) Dim res As New List(Of Data)() Using sr As New StreamReader(fnm) Dim line As String line = sr.ReadLine() While line IsNot Nothing Dim flds As String() = line.Split(";"C) If flds.Length = 3 AndAlso flds(0) = v0 Then res.Add(New Data() With { .V1 = flds(1), .V2 = Decimal.Parse(flds(2)) }) End If line = sr.ReadLine() End While End Using Return res End Function Public Shared Sub Main(args As String()) For Each d As Data In Find("C:\test.csv", "20") Console.WriteLine(d.V1 & " " & d.V2) Next Console.ReadKey() End Sub End Class End Namespace
Hvis jeg gerne vil ha hver værdi mellem kommaer ind i en variabel er det så også måden at gører det på? Jeg kan ikke rigtigt få det til at kører, jeg har ikke arbejdet med namespace før, kan du lave et screenprint af hvordan du laver det i vb?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
