Skocz do zawartości

Visual basic importowanie z txt


JamboS

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

Zarejestruj się za darmo i naucz się zarabiać online!

  • 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, sztucznej inteligencji 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ę
  • Polecana zawartość

    • Poradnik podatkowy - jak rozliczać się z pieniędzy zarobionych przez Internet bez DG?
      Zarabianie w Internecie wiąże się z koniecznością płacenia podatków - a rozliczanie się z urzędem skarbowym nie jest jednoznaczne i proste. Prawo podatkowe w Polsce jest nieujednolicone - co oznacza, że każdy urząd skarbowy może mieć inne interpretacje. Sprawdź jak się za to zabrać!
        • Lubię to!
        • Super
      • 12 odpowiedzi
    • JDG - Jak zarejestrować, rozliczać i prowadzić działalność gospodarczą w Polsce
      Jednoosobowa działalność gospodarcza (JDG) to najprostsza forma prowadzenia działalności gospodarczej w Polsce. Jest to działalność prowadzona przez jedną osobę fizyczną na własne nazwisko i na własne ryzyko. Jednak mimo, że nazywa się jednoosobowa - daje jednak możliwość zatrudniania pracowników. Takich firm jest zarejestrowanych w Polsce zdecydowanie najwięcej. Sprawdź jak zarejestrować, rozliczać i prowadzić własną JDG!
        • Super
      • 3 odpowiedzi
    • Inwestowanie w obligacje detaliczne skarbu państwa - od podstaw!
      Sprawdź jak inwestować w obligacje skarbowe - krok po kroku! Detaliczne obligacje skarbowe to rodzaj obligacji emitowanych przez Państwo, które są oferowane indywidualnym inwestorom, takim jak osoby fizyczne, a nie instytucjom finansowym.

      Są to instrumenty dłużne, nienotowane na żadnym rynku, co oznacza że kupując taką obligację, w praktyce pożyczasz pieniądze państwu na określony czas, a w zamian otrzymujesz odsetki. Można więc powiedzieć że obligacje są indywidualną pożyczką na określony % dla Skarbu Państwa. Państwo odda Ci więcej niż od Ciebie pożyczyło.
        • Super
      • 7 odpowiedzi
    • Jak pozyskiwać i zarabiać na poleconych dzięki make-cash.pl
      W tym poradniku przedstawiam możliwości dostępne dla każdego użytkownika. Dowiesz się jak efektywnie wykorzystać forum do zbierania poleconych i budowania dodatkowych zysków.

      Make-cash.pl to miejsce, gdzie ludzie dzielą się swoimi doświadczeniami, poszukują porad i rekomendacji, a także nawiązują wartościowe kontakty. Codziennie odwiedza nas minimum 2000 unikalnych osób, które są zainteresowane zarabianiem przez Internet - a to ogromny potencjał, z którego może korzystać nie tylko administracja - ale każdy użytkownik forum !
        • Super
      • 2 odpowiedzi
    • Jak pisać treści na stronę internetową z wykorzystaniem AI
      Tworzenie treści od podstaw może być procesem czasochłonnym. Istnieje wiele mniejszych kroków, o których należy pomyśleć w drodze do stworzenia atrakcyjnych treści, takich jak badanie rynku, SEO i redagowanie tekstu, a to tylko początek. Jednak nie musisz zaczynać od zera, gdy istnieją narzędzia AI, które mogą pomóc w tworzeniu wysokiej jakości treści. 
        • Dzięki!
        • Super
      • 13 odpowiedzi
×
×
  • 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 .