Visual Basic Forum

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Write(buffer, 0, bytesRead) End While ' Den request schliessen vor response. requestStream.Close() uploadResponse = uploadRequest.GetResponse() Console.WriteLine("Upload fertig.") Catch ex As UriFormatException Console.WriteLine(ex.Message) Catch ex As IOException ...

Verfasst am: 03.04.2012, 17:40 Aufrufe: 296

Dim mana_, life_, name_ As String Public Sub save(ByVal file As String) Dim sw As New IO.StreamWriter(file) ' Writer sw.WriteLine("Life" & "," & "Name" & "," & "Mana") 'text sw.Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My ...

Verfasst am: 10.12.2011, 13:17 Aufrufe: 275

99 auf 122.87 immer noch rechtsbündig bleibt. So in etwa ist der Code, wo muss ich was einfügen. Console.WriteLine("Sie haben " & menge & " Artike1: " & Format(ergebnis, "0.00") & " Euro") Console.WriteLine("Sie haben " & menge & " Artikel2: " & Format(ergebnis, "0.00") & " Euro") Console.WriteLine( ...

Verfasst am: 12.11.2011, 19:47 Aufrufe: 349

Write("*") If j < i Then Continue For End If Console.WriteLine() Next j Next i Console.WriteLine("**") Console.

Verfasst am: 10.08.2011, 08:34 Aufrufe: 542

StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True) file.WriteLine(" 0") file.WriteLine("LINE") file.WriteLine(" 5") file.WriteLine(n) 'nummer file.WriteLine("100") file.WriteLine("AcDbEntity") file.WriteLine(&quo ...

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

... funktion(0) Case "play" MsgBox("funzt") AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.URL = funktion(1) AxWindowsMediaPlayer1.Ctlcontrols.play() c.streamw.WriteLine ...

Verfasst am: 24.05.2011, 13:33 Aufrufe: 939

Number Then MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen WB = XL.Workbooks.Open(XlsDatei) WS = XL.Worksheets(1) ' Inhalt der gewünschten Zelle ermitteln Console.WriteLine(WS.Cells(1, 1)) ' Excel sc ...

Verfasst am: 21.04.2011, 00:50 Aufrufe: 368

Create) 'Erzeuge einen Writer.... Dim obj_Writer As New System.IO.StreamWriter(obj_Stream) 'Schreibe ein paar Zeichen rein obj_Writer.WriteLine("Test123") obj_Writer.Close() 'Schliesse obj_Stream.Close() 'Schliesse Catch ex As Exception 'Aubacke da ist was schief gegangen MsgBox(ex.Mess ...

Verfasst am: 17.03.2011, 15:56 Aufrufe: 601

LastIndexOf("=") + 1) End If End If Next Dim ws As FileStream = New FileStream( _ "temp.txt", FileMode.OpenOrCreate, _ FileAccess.Write) ' --- Stream öffnen Dim wr As StreamWriter = New StreamWriter(ws) wr.WriteLine(Setting1) 'schreibt die erste zeile wr.Write ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 601

LastIndexOf("=") + 1) End If Next So jetzt müssen wir die Variablen nur noch in eine neue Datei schreiben: Dim ws As FileStream = New FileStream( _ "temp.txt", FileMode.OpenOrCreate, _ FileAccess.Write) ' --- Stream öffnen Dim wr As StreamWriter = New StreamWriter(ws) wr.WriteLine(Setting1 ...

Verfasst am: 09.02.2011, 12:13 Aufrufe: 483

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 End If Loop reader1.Close() ...

Verfasst am: 28.09.2010, 17:12 Aufrufe: 622

PingResult) Sub Main() Dim abc As String = "192.168.1" Console.Title = "Erbses Simpler IPScanner" Console.WriteLine("Erbses Simpler IP-Scanner.") Console.WriteLine() Dim args As String() = Environment.GetCommandLineArgs() If args.Length > 1 Then Dim abc_ As String ...

Verfasst am: 15.09.2010, 22:04 Aufrufe: 1346

ich weiss nicht, was in der zeile mit If ID >= 5 Then Console.WriteLine("Bitte nur 5 Ziffern") das = zu suchen hat

Verfasst am: 14.09.2010, 09:51 Aufrufe: 437

Start() Dieser Code wird derzeit ausgelöst, wenn ich auf einen Button klicke (soll später mit einem Event aufgerufen werden) Mein derzeitiger Code in der ResetDisplay ist folgender: TryCast(Timer, Timer).Stop() Console.WriteLine("Tick-Ereignis ausgelöst!") Ich hatte vorher eine MessageBox, hatte dann aber in der MSDN gelesen, das im Debug mit einer MessageBox das Event womöglich ...

Verfasst am: 27.07.2010, 08:53 Aufrufe: 328

ShowDialog() = DialogResult.OK Then Dim fs As New FileStream(sfd.FileName, FileMode.Create) Dim sw As New StreamWriter(fs) sw.WriteLine() sw.Close() savetxt(sfd.FileName) Else MsgBox("Abbruch") End If End Sub Private Sub savetxt(ByVal datei) ...

Verfasst am: 13.07.2010, 06:09 Aufrufe: 530

CommandText = "SELECT * FROM commandCenter WHERE systemMessage='" & atResultCommand & "'" Try con.Open() 'hier muss eine Zuweisung hin... irgendwie, nur weiss ich leider nicht wie con.Close() Catch ex As Exception MsgBox(ex.Message) 'strBuff = reader I want to return the value back to the thread were the methode was started End Try Debug.WriteLine(container) End S ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

Ports.Parity.None, 8, IO.Ports.StopBits.One) com1.WriteLine(data) com1.Close() End Using End Sub Function ReceiveSerialData() As String Dim returnStr As String = "" Dim Incoming As Integer Dim IncomingChar As Char Dim com1 As IO.Ports.SerialPort = Nothing Try com1 = My.Computer.Ports.OpenSerialPort(" ...

Verfasst am: 18.06.2010, 09:11 Aufrufe: 823

Value author = books.Fields("author").Value Write(title) Write(", ") Write(author) WriteLine() End While In der While-Schleife sollen die Datensätze aus der Datenbank ausgegeben werden. Wie mache ich das richtig? Ich denke, hier steckt ein Logikfehler :/. Dankeschön für die Hil ...

Verfasst am: 09.05.2010, 12:52 Aufrufe: 807

Verfasst am: 24.01.2010, 15:46 Aufrufe: 746

Url.ToString() Dim Writerurl As StreamWriter Writerurl = New StreamWriter("c:/test/url.txt") Writerurl.WriteLine(URL1) Writerurl.Close() ------------------------------------------------------------------------------------------------------------------ Das Password un der Username werden aus 2 .txt Dateien ausgelesen. Das funktioniert auch wenn man den Mess ...

Verfasst am: 14.09.2009, 21:15 Aufrufe: 1549

Vielleicht denke ich da gerade zu eingleisig aber mir fällt kein anderer plausibler Grund ein als die "Überforderung" durch die Zahlenlänge, zumal bei kleineren Zahlen 16 , 32, 128 usw. keine Probleme auftreten. Hier mal der Code, habe wie gesagt erst heute mit Visual Basic angefangen, also bitte wenn dann konstruktive, nicht "nur-"Kritik =) Sub Main() Console.WriteLine( ...

Verfasst am: 20.08.2009, 09:59 Aufrufe: 1022

IndexOf(Chr(9)) ''Chr(9) steht für Ein Tabulatorzeichen If tabPosition <> -1 Then tempString = line.Substring(0, tabPosition) ''liest die Zeile von 0 bis Tab End If PinNr(i) = (tempString) '' Speichert die erste Spalte unter PinNr ...

Verfasst am: 02.08.2009, 18:38 Aufrufe: 1339

DirectoryPath & "\Log.txt", True) With sw ' Setze alle Daten Zusammen und speichere sie ab .WriteLine(TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.

Verfasst am: 20.07.2009, 08:21 Aufrufe: 701

IO.Ports.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.Empt ...

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

Wenn ein gerät keine antwort zurück sendet soll in dies sogenannte Pause gesprungen werden und immer wieder ein Befehl abgefragt werden bis eine Antwort zurück kommt und dann soll wieder zurück ins Hauptprogramm gesprungen werden und an der Stelle weitergemacht werden wo es pause gemacht hat. Hoffe ihr könnt mir soweit folgen. Ich habe in meine Pause-Funktion folgendes geschrieben: SerialPort.Writeline(" ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1799

outerHTML appIE = Nothing 'StreamWriter-Instanz bilden und Datei öffnen, =False: Existierende Datei überschreiben, sonst erstellen Dim Ausgabe As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("C:\test\test.txt", False) Ausgabe.WriteLine(sTxt) 'Variable sTxt in Testdatei schreiben Ausgabe.Close() ' Tex ...

Verfasst am: 12.07.2009, 16:47 Aufrufe: 1346

... ktioniert es nicht ich möchte mit file von if und elseif überprüfen ob das was der user eingibt 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 ...

Verfasst am: 06.07.2009, 17:37 Aufrufe: 1339

DirectoryPath & "\Log.txt", True) With sw ' Setze alle Daten Zusammen und speichere sie ab .WriteLine(TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2650

OpenTextFile(Filename, ForWriting, True)So wird also die Textdatei im Schreibmodus geöffnet und falls sie nicht existiert soll er sie gleich erstellen.Genauso könnte man hier Append nutzen.4.1 Zeilen Eine Zeile in die Datei schreiben:tStream.WriteLine("Text")Ist also eigentlich sehr simpel.Außerdem gibt es noch die Möglichkeit eine bestimmte Anzahl an leeren Zeilen auf einmal zu schreiben.tStr ...

Verfasst am: 15.06.2009, 11:31 Aufrufe: 606

IO.StreamWriter(CompletePath) Save.WriteLine(Content) Save.Flush() Save.Close() ...

Verfasst am: 25.03.2009, 20:28 Aufrufe: 1108

Verfasst am: 23.03.2009, 19:53 Aufrufe: 774

writeline(IniRead("System", "Version", "NIX")) End Sub Function IniRead(ByVal Section As String, ByVal Key As String, _ Optional ByVal Default1 As String = "", Optional ByVal IniFile As String = "") As String Dim sb As New String(Chr(32), 255) Dim n As Integer n = GetPrivate ...

Verfasst am: 11.09.2008, 19:30 Aufrufe: 936

Exists(path) = False Then ' Create a file to write to. Dim sw As StreamWriter = File.CreateText(path) sw.WriteLine("curl [URL]http://19 ...

Verfasst am: 02.09.2008, 16:24 Aufrufe: 1352

Verfasst am: 15.07.2008, 19:03 Aufrufe: 640

Console.WriteLine ist ja eine Funktion deshalb auch das () Wink

Verfasst am: 15.07.2008, 18:54 Aufrufe: 640

danke, klappt alles so wie es sollte. Dachte ich kanns 1:1 von Console.WriteLine übernhemen.Vielen dank für die schnelle hilfe.MFG Totila

Verfasst am: 30.06.2008, 18:30 Aufrufe: 5926

Verfasst am: 06.06.2008, 15:51 Aufrufe: 918

Verfasst am: 12.05.2008, 12:38 Aufrufe: 894

Moin,ich habe mich mal an mein Visual Basic Buch gehalten, und da wollten die, dass ich so eine Console schreibe, die anzeigt welches ServicePack installiert ist. Nur das zeigt bei mir ServicePack 2 an, obwohl bei der Installation von Visual Basic Express 2008 stand: ServicePack 3.5 wird installiert...Hier der Code:Visual Basic: Simon

Verfasst am: 11.04.2008, 23:29 Aufrufe: 3258

SelectedPath & "\" & FileName & ".txt" Dim Save As New System.IO.StreamWriter(CompletePath) Save.WriteLine(Content) Save.Flush() Save.Close() Catch Return 0 End Try Return 1 End Function Beispiel: SaveTextFiles("TextFileName", "Some Content ...

Verfasst am: 11.04.2008, 17:10 Aufrufe: 1450

StartupPath & "\accounts.txt", FileMode.OpenOrCreate) Dim objWriter As StreamWriter = New StreamWriter(objStream) objWriter.WriteLine(strNeuerInhalt) objWriter.Close() objStream.Close() End If End If End End Sub Der relevante Code. Wie gesagt kann Datei nicht Ö ...

Verfasst am: 17.03.2008, 16:36 Aufrufe: 928

Verfasst am: 17.03.2008, 16:01 Aufrufe: 928

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

OpenTextFile(Filename, ForWriting, True) So wird also die Textdatei im Schreibmodus geöffnet und falls sie nicht existiert soll er sie gleich erstellen. Genauso könnte man hier Append nutzen. 4.1 Zeilen Eine Zeile in die Datei schreiben: tStream.WriteLine("Text") Ist also eigentlich sehr simpel. Außerdem gibt es noch die Möglichkeit eine bestimmte Anzahl an leeren Zeilen au ...

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: 27.10.2007, 22:59 Aufrufe: 303

IO.StreamWriter = New System.IO.StreamWriter(ConfigDatei,False) Dim neu As String Dim i As Integer For i = 1 To ConfigLaenge Writer.WriteLine(Config(i).Replace(vbNewLine, "") & vbNewLine) Next Writer.Close() End Function Versuch es mal so. Ich denke mal mit Config is ein Array gemeint. Wenn ja solltest du die S ...

Verfasst am: 25.10.2007, 19:10 Aufrufe: 1412

Zu 2 Zuerst die Datei downloaden, und dann per WriteLine auslesen. Sollte glaube ich gehen

Verfasst am: 16.10.2007, 22:09 Aufrufe: 404

Verfasst am: 15.10.2007, 14:48 Aufrufe: 666

Text, FileMode.Create) 'überschreibt eine vorhandene Datei Dim StrWr As StreamWriter = New StreamWriter(FiStr) StrWr.WriteLine(TextBox2.Text) StrWr.Close() End Sub '----Text anfügen an bestehende Datei---- '----oder die Datei neu anlegen, wenn sie nicht existiert---- '----und Text hineinschreiben---- ' Private Sub Button2_Click( ...