Skocz do zawartości
JamboS

Visual basic importowanie z txt

Rekomendowane odpowiedzi


 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 ?

  • Super 1

 

 

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

 

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,)        
Edytowane przez Xander92
  • Super 1

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

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

 

       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
  • Super 1
Odnośnik do komentarza

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 
  • Super 1

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

 

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

       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 ?

 

 

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się


×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .