Visual Basic Forum

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Thread(AddressOf mainserver) mainthread.Start(c) End While End Sub Private Sub mainserver(ByVal con As Connection) Do Try For Each c As Connection In list ' an alle clients weitersenden. funktion = Split(con.streamr.ReadLine, "|") Select Case fu ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

CreateDirectory(MyPfad & "\upload") End If For i = 1 To 307 strTeile = w.ReadLine.Split("=") File(i) = strTeile(0) Size(i) = strTeile(1) aktuelleDatei = MyPfad & "\" & File(i) Me.

Verfasst am: 17.03.2011, 13:34 Aufrufe: 863

Open, _ IO.FileAccess.Read) Dim w As IO.StreamReader = New IO.StreamReader(fs) ' Nun können wir Zeilen einlesen und auch gleich deinen textboxen zuweisen Textbox1.text = w.ReadLine 'Liest die erste Zeile in der Datei und weist den Text der Textbox zu 'Das machen wir jetzt für alle 4 also: Textbox2.text = w.ReadLine Textbox3.text = w.ReadLine Textbox4.text = w.ReadLine 'Wenn ...

Verfasst am: 09.02.2011, 12:13 Aufrufe: 483

FileAccess.Write) Dim writer1 As New System.IO.StreamWriter(stream2) Do Until reader1.EndOfStream = True Dim zeile As String = reader1.ReadLine If zeile.Contains(TextBox1.Text) = True Then writer1.WriteLine(zeile) reader1.Close() writer1.Close() Exit Sub ...

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

(z.B. 192.168.178)") Dim input As String = Console.ReadLine().Trim If input = String.Empty Then Console.WriteLine("Keine Eingabe entdeckt.") Console.WriteLine("Benutze standard Adressbereich: {0}", abc) Else Dim abc_ As String = FilterMask(input) ...

Verfasst am: 09.05.2010, 12:52 Aufrufe: 806

Console Module Module1 Dim Anzahl As String Dim Durchläufe As Integer Dim ZwErg As Integer Dim Summe As Integer Dim numericCheck As Boolean Sub Main() Do Summe = 0 WriteLine("Bitte geben Sie die Anzahl der Durchläufe ein") Anzahl = ReadLine() ' nein, readline gibt Ihnen einen string zurück, aus dem müssen Sie eine Int mac ...

Verfasst am: 14.09.2009, 21:15 Aufrufe: 1549

WriteLine("Der Taschenrechner") Console.WriteLine("Zahl1 eingeben") Dim a As Integer = Console.ReadLine() Console.WriteLine("Zahl2 eingeben") Dim b As Integer = Console.ReadLine() Dim Summe As Integer = a + b Dim Differenz As Integer = a - b Dim Produkt As String = a * b ...

Verfasst am: 20.08.2009, 09:59 Aufrufe: 1022

StreamReader("C:\Test_Vectors.txt") line = reader.ReadLine Dim PinNr(Anzahl) As String 'String für PinNr PinName(Anzahl) As String Dim i As Integer = 0 Dim tempString As String Dim tempStringLine As String Dim tabPosition As Integer line = reader.ReadLine line = reader.R ...

Verfasst am: 20.07.2009, 08:21 Aufrufe: 701

SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try response = serialPort.ReadLine() Catch ex As Exception MessageBox.Show("No response from Radio") GoTo 1 End Try If String.Compare(response, String.Empty) &l ...

Verfasst am: 17.07.2009, 12:02 Aufrufe: 515

Wenn du willst das es wieder zu Writeline springt mach es so 1: SerialPort.Writeline("Anweisung") Try SerialPort.Readline() Catch ex as Exception MessageBox.Show("No response") GoTo 1 End Try

Verfasst am: 15.07.2009, 10:02 Aufrufe: 515

Hoffe ihr könnt mir soweit folgen. Ich habe in meine Pause-Funktion folgendes geschrieben: SerialPort.Writeline("Anweisung") Try SerialPort.Readline() Catch ex as Exception MessageBox.Show("No response") End Try Ich möchte aber das es wieder zu Writeline springt wenn die Exception ausgelöst wird. Dachte das funktioniert vllt mit Throw. Kann mir da jemand weit ...

Verfasst am: 12.07.2009, 16:47 Aufrufe: 1346

... ngibt genau 5 Ziffern hat nur wenn ich es ausprobiere und 6 Ziffern eingebe steht da gar nichts und wenn ich 5 eingebe steht da nur 5 Ziffern eingeben und wenn ich nach einem eintippen nochmal etwas eintippen möchte schliest sich das programm hier der code : Module Module1 Sub Main() Console.WriteLine("Wie heisen sie?") Dim name As String name = Console.ReadLine ...

Verfasst am: 15.06.2009, 17:59 Aufrufe: 1893

Hier der Code:For i = 1 To 5 'Wir wollen die Zeile 5 auslesen line = sr.ReadLine() 'der SR liest die erste Zeile, s ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2649

Somit kann man überall schnell und einfach die Zeilenanzahl ermitteln lassen.Praktisch wenn man den Fortschritt in einer Progressbar anzeigen will.Zeilen einlesenDo Until tStream.AtEndOfStream Text1.SelText = tStream.ReadLine & vbCrLf DoEvents loop tStream.close(tStream.ReadLine)Hiermit liest man also eine Zeile ein.3.2 Bytes Datei einfach wieder ganz normal im Lesezugrif ...

Verfasst am: 15.06.2009, 11:27 Aufrufe: 661

Beschreibung:Diese Funktion öffnet eine Datei und gibt die angegebene Zeile als String aus.Begonnen wird jeweils bei 0, also ist die erste Zeile 0.Funktion:Private Function ReadLineFromTextFile(ByVal Filename As String, _ ByVal Line As Integer) As String Dim Textfile As System.IO.TextReader = _ &nb ...

Verfasst am: 06.06.2009, 17:34 Aufrufe: 597

Also wenn du die ersten 3 Zeilen auslesen möchtest zeige ich dir mal wie ich das mache ^^. Als erstes deklarierst du einen Streamreader und 3 integer Dim i as integer =0 to 1 'Das wäre die erste Zeile Dim x as integer = 0 to 2 ' 2te Zeile Dim y as integer = 0 to 3 ' 3te Zeile Dim sreader = new Streamreader("Der Pfad zu deiner Datei") sreader.readline(i) sreader.readline(x) sreader.readline(y) ...

Verfasst am: 25.03.2009, 20:28 Aufrufe: 1108

Anzeigen() 'WriteLine("Erster Test bestanden: Voreinstellung: 10:24:36") z.Addieren(50, Zeiteinheit.Minute) z.Anzeigen() 'WriteLine("Zweiter Test bestanden: 50 Minuten addiert 11:14:36") z.Addieren(135, Zeiteinheit.Sekunde) z.Anzeigen() 'WriteLine("Dritter Test bestanden: 135 Sekunden addiert: 11:16:51") ReadLine() End Sub ...

Verfasst am: 03.03.2009, 08:47 Aufrufe: 1156

AtEndOfStream sourceline = newtstream.ReadLine sourceall = sourceall & sourceline & break compare = InStr(sourceline, componentlist(i)) If compare <> 0 Then sourceline = newtstream.ReadLine sourceall = sourceall & sourceline & break ...

Verfasst am: 26.02.2009, 15:40 Aufrufe: 2462

Verfasst am: 02.09.2008, 16:24 Aufrufe: 1350

WriteLine(ControlChars.Cr + "Please enter the new Proxy Address that is to be set ") Console.WriteLine("(Example:http://myproxy.example.com:port)") Dim proxyAddress As String proxyAddress = Console.ReadLine() If proxyAddress.Length = 0 Then myWebRequest.Proxy = myProxy Else Console.WriteLine(ControlChars.Cr + "Please enter the Credentials") Console.WriteLine("Username:") ...

Verfasst am: 23.07.2008, 06:25 Aufrufe: 662

Verfasst am: 03.07.2008, 20:02 Aufrufe: 818

Verfasst am: 01.06.2008, 20:03 Aufrufe: 422

Verfasst am: 01.06.2008, 17:42 Aufrufe: 422

€:Hat sich eigentlich erledigt, nur:Ich habe nun: For i = 1 To ReadLine(.FileName, 1)Geht ja alles, nur habe ich mittlerweile ein anderes Problem.Bei der Funktion erstellen, zählt das Programm, wieviele Elemente in der Listview sind und speichert die Zahl als 1. Zeile in der Datei ab. (Diejenige wird dann ausgelesen).Damit die Elemente bei dem Laden wieder hineinkommen sieht die Ladefunktion so aus:Visual Basic ...

Verfasst am: 23.05.2008, 17:44 Aufrufe: 2155

Verfasst am: 06.05.2008, 21:00 Aufrufe: 3674

Verfasst am: 11.04.2008, 17:10 Aufrufe: 1450

Open) Dim objReader As StreamReader = New StreamReader(objStream) Dim i As Integer ltvAccounts.Items.Clear() Do Until objReader.Peek() = -1 buffer = Nothing buffer = objReader.ReadLine strName = buffer.Split(vbTab)(0) strPW = buffer.Split(vbTab) ...

Verfasst am: 17.03.2008, 21:09 Aufrufe: 3258

Beschreibung: Diese Funktion öffnet eine Datei und gibt die angegebene Zeile als String aus. Begonnen wird jeweils bei 0, also ist die erste Zeile 0. Funktion: Private Function ReadLineFromTextFile(ByVal Filename As String, _ ByVal Line As Integer) As String Dim Textfile As System.IO.TextReader = _ New System.IO.StreamReader(Filename) Dim cnt As Integer = 0 ...

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

Somit kann man überall schnell und einfach die Zeilenanzahl ermitteln lassen. Praktisch wenn man den Fortschritt in einer Progressbar anzeigen will. Zeilen einlesen Do Until tStream.AtEndOfStream Text1.SelText = tStream.ReadLine & vbCrLf DoEvents loop tStream.close (tStream.ReadLine) Hiermit liest man also eine Zeile ein. 3.2 Bytes Datei einfach wieder ganz normal im Lesezugrif ...

Verfasst am: 10.02.2008, 23:45 Aufrufe: 479

naja also schaut einfach ich will dass wenn ich in meine 4 Textboxen eine 4 Stellige Zahl eingebe und dann auf Enter drücker(button) soll die von einer txt Datei auf einem server kontrolliert werden ob die in der txt vorhanden ist, also NICHT READLINE sondern er soll das ganze file durchsuchen da ich mehrere Serials mache verstanden? lg karnerbi EDIT: achja genau und wennse richtig ist sollte man die serial b ...

Verfasst am: 04.01.2008, 17:29 Aufrufe: 429

Dim StdIn As StreamWriter = cmd.StandardInput StdIn.AutoFlush = True ' Puffer automatisch flushen Dim StdOut As StreamReader = cmd.StandardOutput Dim StdErr As StreamReader = cmd.StandardError Damit können wir dann auslesen und "fernsteuern". Mit StdIn.WriteLine("cd ..") solltest du dann die CMD fernsteuern könne. Auslesen kannst du dann mit _sTemp = stdOut.readline() oder .readtoe ...

Verfasst am: 18.12.2007, 23:34 Aufrufe: 713

Verfasst am: 17.12.2007, 20:04 Aufrufe: 713

Schon mal dran gedacht logisch an die Sache ran zu gehen -.- Gesucht ist die x-te Zeile aus einer Textdatei. Ok, wie kann man aus einer Textdatei lesen? Genau, mit einem Streamreader. Und was machen wir um die erste Zeile einzulesen? strReader.readline() exakt. Und was machen wir wenn wir mehrere Zeilen einlesen wollen, zB 5. Dann nimmt man halt ne Schleife und liest ein. Shocked

Und lassen die Schleife dabei ...

Verfasst am: 26.11.2007, 14:47 Aufrufe: 331

Verfasst am: 15.11.2007, 20:12 Aufrufe: 503

OK Then Dim reade As StreamReader = New StreamReader(.FileName) Dim Line As String lv1.Items.Clear() Do Line = reade.ReadLine() If Line <> Nothing Then lv1.Items.Add(Line) Loop Until Line Is Nothing reade.Close() ...

Verfasst am: 15.10.2007, 14:48 Aufrufe: 666

Items.Clear() Do Until StrRe.Peek() = -1 ListBox1.Items.Add(StrRe.ReadLine) i += 1 Loop StrRe.Close() Catch except As Exception MessageBox.Show("Hallo", "Titel", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) MsgBox(except.Message & vbNewLin ...

Verfasst am: 27.09.2007, 12:03 Aufrufe: 777

http://www.zen51342.zen.co.uk/vbadv/vbadv_077.htm http://msdn2.microsoft.com/de-de/library/xz32ty04(VS.80).aspx Bei der Textbox würde ich schon vorher, wenn du den Text einliest, dass nur Zeilenweise machen per "Line Input" oder über das FSO .Readline. Im nachhinein zu bestimmen wo die Zeilenumbrüche gemacht werden sollen, ist etwas schwierig, aber wäre auch machbar.

Verfasst am: 24.09.2007, 13:51 Aufrufe: 785

.. ' Public Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Verweis auf das FileSystemObject erstellen Set oFSO = CreateObject("Scripting.FileSystemObject") ' Existiert die Datei überhaupt? If oFSO.Fil ...

Verfasst am: 21.08.2007, 19:00 Aufrufe: 1015

Dim files(5) As String sollte den Fehler beheben, ein array braucht nämlich eine gewisse größe(hier 6 Felder) Dann kannst du auch deine Deklarationen so schreiben. dim eins, zwei, ... as string und noch ein bisschen kürzen with.fileReader One = .ReadLine() two = .ReadLine() ... end with Dann kannst du deine Bedinungen so schreiben. If RadioButton1.Checked Then ... ElseIf RadioButton2.Check ...

Verfasst am: 21.08.2007, 16:24 Aufrufe: 1015

OpenTextFileReader(files) Dim One As String Dim Two As String Dim Three As String Dim Four As String Dim Five As String Dim Six As String Dim Writeone As String Dim Writetwo As String Dim Writethree As String Dim Writefour As String Dim Writefive As String One = fileReader.ReadLine() two = fileReader.R ...

Verfasst am: 26.07.2007, 22:36 Aufrufe: 7459

Dazu verwenden wir eine For Schleife. Hier der Code: For i = 1 To 5 'Wir wollen die Zeile 5 auslesen line = sr.ReadLine() 'der SR liest die erste Zeile, speichert sie in der Variable und liest die nächste Zeile und überschreibt die Variable wieder. Bis wir zur 5ten Zeile kommen. Next In der fünften Zeile angekommen, stoppen wir die Schleife und lassen uns ...

Verfasst am: 18.01.2003, 15:39 Aufrufe: 524

möchte die nun in eine Stringvariable laden: Dim Reader As StreamReader Dim FileIn As FileStream Dim sDateiName As String = "TextFile1.txt" Dim iInx As Integer FileIn = New FileStream(sDateiName, FileMode.Open) Reader = New StreamReader(FileIn) While Reader.Peek <> -1 theText += Reader.ReadLine + vbCrLf End While Mein Problem ist ...