Visual basic importowanie z txt

 Dim import As New OpenFileDialog

        import.Filter = "Text File(&.txt) |. txt"

        import.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop

        If import.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub

        Dim myfile As String = import.FileName

        Dim reader As New System.IO.StreamReader(myfile)

        ComboBox1.Text = reader.ReadToEnd

mam plik txt

1

2

3

do combo boxa wrzuca mi 123

a chce by wrzucalo

1

2

3

 co jest nie tak ?

Tego typu skrypt używałem do generatora tagów i tym podobnych. Reput oczywiście

pomoze ktos ?;c

niewiem czy to Ci pomoże ale jak robiłem hacka i w MessageBox chciałem wypisać dane, każda w nowej linijce to do przeniesienia do nowego wiersza używałem komendy:

 Microsoft.VisualBasic.Constants.vbCrLf

w ten sposób:

MessageBox.Show("To your account: " & userID.ToString() & "." & Microsoft.VisualBasic.Constants.vbCrLf & "Will be added: " & Microsoft.VisualBasic.Constants.vbCrLf & cash.ToString() & " of Cash,)        

mam bledy;c jak go przerobic pod comboboxa?

Trochę lamersko, bo nie ogarniam za dobrze VB, ale działa!

       Dim line As String        Dim import As New OpenFileDialog        import.Filter = "Text Files (.txt)|*.txt|All Files (*.*)|*.*"        import.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop        If import.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub        Dim myfile As String = import.FileName        Dim reader As New System.IO.StreamReader(myfile)        Do            line = reader.ReadLine()            If (line IsNot Nothing) Then                ComboBox1.Items.Add(line)            End If        Loop Until line Is Nothing

Jambos, przyjadę do domu w nocy i Ci podrzuce jak ja mam zrobione by wczytywało do text boxa dokładnie tak jak jest zapisane w pliku .txt.

Chyba, że ktoś wcześniej Ci odpowie.

Jako że JamboS zwrócił sie do mnie o pomoc na PW i też mu rozwiązałem ten problem, tutaj wrzucę swoją wersję znalezioną w internecie:

Dim oStream As IO.StreamReader        Dim oOpenFileDialog As OpenFileDialog        oOpenFileDialog = New OpenFileDialog        oOpenFileDialog.SupportMultiDottedExtensions = False        If oOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then            If IO.File.Exists(oOpenFileDialog.FileName) Then                oStream = New IO.StreamReader(oOpenFileDialog.FileName)                Do Until oStream.EndOfStream = True                    ComboBox1.Items.Add(oStream.ReadLine)                Loop                oStream.Close()            End If        End If 

 

Trochę lamersko, bo nie ogarniam za dobrze VB, ale działa!

       Dim line As String        Dim import As New OpenFileDialog        import.Filter = "Text Files (.txt)|*.txt|All Files (*.*)|*.*"        import.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop        If import.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub        Dim myfile As String = import.FileName        Dim reader As New System.IO.StreamReader(myfile)        Do            line = reader.ReadLine()            If (line IsNot Nothing) Then                ComboBox1.Items.Add(line)            End If        Loop Until line Is Nothing

dzięki mistrzu )

Co zrobić aby mi w webrowser kliknał button o danym id WebBrowser1.Document.GetElementById("login_tab").InvokeMember("click")

taki kod nie bangla

<button class="primary_button" tabindex="10" type="submit"><span class="">Log In</span>

taki jest kod buttonu gdzie tam jest id ?;c

i mam jeszcze takie cos

 WebBrowser1.Navigate(TextBox1.Text)

i co zrobić aby następne akcje pod tym navigate było po kilku sec albo czekało az ta strona sie zaladuje ?

O rany! Powiem Ci, że nie bawiłem się jeszcze z WebBrowserem przy programowaniu więc Ci raczej nie pomogę, wybacz

a z tym czekaniem wiesz ? z timerem coś robiłem ale nie działało