Visual Basic Forum

Verfasst am: 03.04.2012, 17:40 Aufrufe: 296

Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My.Computer.FileSystem.ReadAllText(file) 'Lesen Dim ste() As String = st.Split(vbNewLine) 'Zeilen splitten life_ = ste(0).Split(",")(0) 'auslesen name_ = ste(0).Split(",")(1) 'ausl ...

Verfasst am: 20.02.2012, 18:03 Aufrufe: 149

Verfasst am: 20.02.2012, 17:54 Aufrufe: 149

Verfasst am: 25.01.2012, 10:30 Aufrufe: 358

... ta"), vbMaximizedFocus) End Sub Private Function GetFiles(ByVal sPath As String, ByVal sFileType As String) As String Dim Ausgabe As String Dim cFile As String cFile = Dir(sPaht() & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" Ausgabe = Ausgabe & vbNewLine ...

Verfasst am: 25.01.2012, 09:45 Aufrufe: 358

hi für sowas würde ich mir eine funktion schreiben Private Function GetFiles(Byval sPath as string, Byval sFileType as string) as String dim Ausgabe as string Dim cFile As String cFile = Dir(sPaht & "*." & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" Ausgabe = Ausgabe & v ...

Verfasst am: 24.01.2012, 08:03 Aufrufe: 358

exe " & Environ("appdata"), vbmaximizedfocus 'code um exedatein aus einem ordner in textbox zu schreiben Dim cFile As String cFile = Dir("C:\*.EXE") ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" text1.text = Text1.text & vbnewline & cFile cFile = Dir ' Aufruf der Funktion o ...

Verfasst am: 15.07.2011, 07:10 Aufrufe: 375

Verfasst am: 23.05.2011, 07:45 Aufrufe: 418

... i ein Array sieht so aus dim test(1 to 10) as String for a = 1 to 10 Randomize my_num = Int((rnd*1000))+1 variable = "das ist ein beliebiger Text, der sich verändert" & my_num 'response.write variable & " " '<-- was das sein soll ist mir klar aber in vb funktioniert das anders variable = variable & vbNewLine ...

Verfasst am: 10.11.2010, 20:53 Aufrufe: 714

FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (Me.TextBox1.Text & Me.TextBox2.Text & vbNewLine), (Me.TextBox3.Text & vbNewLine)) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Text As String = Me.TextBox1.Text & Me.TextBox2.Tex ...

Verfasst am: 07.09.2010, 16:03 Aufrufe: 1497

Verfasst am: 29.12.2009, 13:05 Aufrufe: 472

hi text1.text = text1.text & "DeinText" oder mit einer neuen Zeile text1.text = text1.text & vbnewline & "DeinText" ganz easy und nix fachsprache Wink

lg

Verfasst am: 10.12.2009, 23:38 Aufrufe: 869

ReadAllText("D:\Vokabel.txt").Split(vbNewLine) If eingabe.Text = zeilen.Split("|")(0) Then 'Die Null (0) Deklariert das ___| abgefragt werden soll MsgBox("Eingabe richtig!") End If Next End Sub TEXT DATEI Affe|monkey Baum|tree Stehe nun vor der Hürde das ich möchte das L ...

Verfasst am: 16.09.2009, 12:03 Aufrufe: 888

... en Dateipfad1 For Input As #F G = FreeFile Open Dateipfad2 For Input As #G 'Zeilenweise durcharbeiten While Not EOF(F) lRow = lRow + 1 'Zeilen auslesen Line Input #F, sLine Text1 = sLine Line Input #G, sLine Text2 = sLine 'wenn die zeile ungleich ist, dann in txtbox schreiben If Text1 Text2 Then Txtbox.Text = Txtbox.Text & vbNewLine ...

Verfasst am: 02.09.2009, 08:37 Aufrufe: 788

Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick RichTextBox1.Text = RichTextBox1.Text & "Hallo" & clicks & vbNewLine Label1.Text = clicks clicks = clicks + 1 End Sub End Class PS: Ich habe mal noch einen zweiten Button zum beenden ei ...

Verfasst am: 17.06.2009, 14:35 Aufrufe: 1413

Lines.Length - 1 ausgabe = ausgabe & reflink & content(i) & vbNewLine Next TextBox1.Text = ausgabe End Sub Private Sub But ...

Verfasst am: 15.06.2009, 12:54 Aufrufe: 995

StartTime = Now End SubBeim Laden der form derwem dem type nun werte zugewiesen.Diese koennen wir zum beispiel mit einer Massagebox ausgeben lassen.Msgbox t.FormWidth & vbnewline & t.StartTimedas war nun ein ganz normaler Type mit 2 werten.Nun erleutere ich euch noch einen Type mit array.Private Type Test Vorname As String &n ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2650

EinleitungWas ist FSO?FSO steht für "File System Objects" und ist eine Objektklasse durch die man relativ einfach mit Dateien, Laufwerken und Ordnern arbeiten kann.Egal ob verschieben, kopieren, lesen, schreiben oder suchen.Vor- und Nachteile gegenüber Input, Line Input etc.Vorteile:1. Kann mit verschiedensten Zeilenumbrucharten umgehen und nicht nur mit vbCrLf/vbNewline (Chr(13) + Chr(10).Auf andere Zeilenumbrüche s ...

Verfasst am: 22.09.2008, 18:06 Aufrufe: 521

Text = "" For i = 3 To 7 Step 2 lblAusgabe.Text &= i & vbNewLine Next End Sub End Classwofür ist das next?! ist das wie "End sub" / "end class" ?!?! od heisst das da ...

Verfasst am: 10.09.2008, 17:48 Aufrufe: 1407

Text [COLOR=Orange] If sloesung = 10000 Then[/COLOR] lblAnzeige.Text = "Aufgabe ist richtig!" & vbNewLine & _ "bitte warten" &n ...

Verfasst am: 01.09.2008, 17:52 Aufrufe: 1053

Verfasst am: 26.08.2008, 08:31 Aufrufe: 1323

(LooneyToons;7452)hm , der unterschied zwischen vbNewLine und vbCrlf ist .... nichts =) aber böse zungen behaupten vbCrlf geht schneller :DEs ist andersrum.For some reason, vbNewline is a little bit faster than vbCrLf

Verfasst am: 25.08.2008, 21:09 Aufrufe: 1323

(LooneyToons;7452)hm , der unterschied zwischen vbNewLine und vbCrlf ist .... nichts =) aber böse zungen behaupten vbCrlf geht schneller :Dso un zu deinem anderem problem was ich net so ganz kapiere.Du möchtest also dass dein programm in das PW eines Usernames rausfindet. Wenn ich das richtig verstanden habe , dann lies einfach die textdatei in ein string ein. anschliessend splittest du die nach vbCrlf in einen array ...

Verfasst am: 25.08.2008, 20:01 Aufrufe: 1323

Nochmal genauer:vbCrLf = vbNewLine = Chr(13) + Chr(10)Die andere Frage versteh ich nicht

Verfasst am: 25.08.2008, 19:57 Aufrufe: 1323

hm , der unterschied zwischen vbNewLine und vbCrlf ist .... nichts =) aber böse zungen behaupten vbCrlf geht schneller :Dso un zu deinem anderem problem was ich net so ganz kapiere.Du möchtest also dass dein programm in das PW eines Usernames rausfindet. Wenn ich das richtig verstanden habe , dann lies einfach die textdatei in ein string ein. anschliessend splittest du die nach vbCrlf in einen array. dannach kannst d ...

Verfasst am: 25.08.2008, 19:31 Aufrufe: 1323

Text Select Case login 'er liest die daten von Login Case "" lblAusgabe.Text = "nichts eingegeben" Case "exe" lblAusgabe.Text = "user: exe" & vbNewLine & "password: nett" Case "hallo" lblAusgabe.Text = "user: hallo" & vbNewLine & "password: nice" Case "coding" lblAusgabe.Text = "user: coding" & vbNewLine & " ...

Verfasst am: 01.08.2008, 12:54 Aufrufe: 1463

Verfasst am: 27.07.2008, 20:45 Aufrufe: 866

Verfasst am: 22.07.2008, 18:09 Aufrufe: 388

Verfasst am: 19.07.2008, 17:36 Aufrufe: 2117

Verfasst am: 30.06.2008, 15:00 Aufrufe: 2871

-Login über Winsock-So in diesem tutorial , welches auch mein erstes ist , zeige ich euch , wie man einen account testet, ob er valid oder invalid ist , über winsock.Als Beispiel nehme ich Youtube Was ihr braucht:-Winsock Control-Live HTTP Headershttps://addons.mozilla.org/de/firefox/addon/3829 Start:Zuerst , erstellt ihr ein neues Projekt , mit Standart-Exe.Anschliessend fügt ihr die komponente Microsoft Winsock C ...

Verfasst am: 26.06.2008, 23:06 Aufrufe: 790

Keine Ahnung, ohne Quelltext sieht man es so nicht.Ist es zuviel verlangt, auf den Link zu gehen und sich den Quelltext anzeigen zu lassen?Wenn du am Anfang die Split-Funktion ohne Parameter benutzt, kommst du auf den besseren Effekt, dass nach jedem vbnewline und nicht nach jedem Tag gesplittet wird, hat den Vorteil, dass man den Text dann so hat, wie man ihn auch im Quelltext im Browser sieht.Und was hab ich davon ...

Verfasst am: 26.06.2008, 21:51 Aufrufe: 790

Keine Ahnung, ohne Quelltext sieht man es so nicht. Wenn du am Anfang die Split-Funktion ohne Parameter benutzt, kommst du auf den besseren Effekt, dass nach jedem vbnewline und nicht nach jedem Tag gesplittet wird, hat den Vorteil, dass man den Text dann so hat, wie man ihn auch im Quelltext im Browser sieht. Aber eigentlich darfst du gar kein head Tag zurückbekommen, da mit strSource.Split(" ")(1) ja schon der He ...

Verfasst am: 22.06.2008, 16:12 Aufrufe: 962

Verfasst am: 14.06.2008, 07:10 Aufrufe: 296

(ReED;3778)Ziehe eine Textbo xmit Eigenschaft: "MultiLine = true" auf deine Form und füre folgenden Code ein:Visual Basic: Waren, glaube ich, nur rund 30.

Verfasst am: 13.06.2008, 23:40 Aufrufe: 296

Verfasst am: 04.06.2008, 23:30 Aufrufe: 429

Visual Basic: [code]Private Sub Command1_Click() If Text1.Text = "Hallo" Then 'Abfrage, ob eingegebenes Ergebnis richtig ist MsgBox "Richtig!" & vbNewLine & "Klicken Sie auf Weiter um zur nächsten Frage zu gelangen!", vbInformation, "Richtig!" 'Richtige Eingabe wird bestätigt Command2.Visible = True 'Weiter Button erscheinen lassen Else MsgBox "Leider haben Sie ein falsches Ergebnis eingegeben" & vbN ...

Verfasst am: 26.05.2008, 20:07 Aufrufe: 1832

Ich hatte eben beim überlesen nur n gesehen, und dachte deshalb in dem Source Code würde nur ein Linefeed verwendet, aber unter Windows müsste es eigentlich beides seien (in C rn). VB benutzt übrigens in den Variablen soweit ich weiß beide Zeichen, dass heißt die Konstante vbCrLf enthält bereits beide Zeichen und vbNewLine glaube ich auch.Mit den Zeilenumbrüchen muss man übrigens wenn man mit unterschiedlichen Plattf ...

Verfasst am: 23.05.2008, 12:42 Aufrufe: 690

Verfasst am: 23.05.2008, 12:39 Aufrufe: 690

Verfasst am: 19.05.2008, 15:28 Aufrufe: 1435

Verfasst am: 09.05.2008, 12:17 Aufrufe: 1708

mit den text von der textbox text1 und deren selstart , wie man das jetzt rück wärst macht also wenn die text2 keine zeile mehr hat so mind text1 sichbar werden sollte weil es ja nix mehr zum scrollen gibt kannst du dir ja selber ausdenkenVisual Basic: [code]Private Sub Text1_Change()Dim fragen() As StringDim count As Integer fragen = Split(Text1.Text, vbNewLine)count = UBound(fragen, 1) - LBound(fragen, 1) + ...

Verfasst am: 26.04.2008, 19:22 Aufrufe: 403

Open Blub For Input As #1 Do While Not EOF(1) Input #1, BatText If Text1.Text = "" Then Text1.Text = BatText Else Text1.Text = Text1.Text & vbNewLine & BatText End If Loop Close #1 Und bei Text1 MulitLine auf True setzen. Edit: xD 100ster Post von mir. Mr. Green

Verfasst am: 21.04.2008, 19:23 Aufrufe: 702

chr(13) ? vbnewline ? vbcrlf ?

Verfasst am: 19.04.2008, 22:04 Aufrufe: 730

1. vbNewline ist kein Befehl sondern eine Konstante für die Zahlen 13+10, was nichts anderes als ein Zeilenumbruch in Windows ist. 2. vbCrLf ist das selbe. vbNewline soll aber etwas schneller sein. Warum weiß ich nicht. Das Beispiel von sollniss sollte eigentlich funktionieren. Wenn nicht, dann liest du eine Datei ein, die andere Zeilenumbrüche nutzt. Z.B. nur 10. (vbCr) Würde mich aber wundern, da es ja sch ...

Verfasst am: 19.04.2008, 18:23 Aufrufe: 730

versuchs mal mit vbnewline anstatt vbcrlf

Verfasst am: 19.04.2008, 18:09 Aufrufe: 730

... e so aussieht: Hallo mein name ist marcel1994 So, diese lese ich jetzt ein: Dim alles As String Open "C:\data.txt" For Binary As #6 alles = Space(LOF(6)) Get #6, , alles Close #6 Nun möchte ich aus dem eingelesenen String "alles", die Leeren Zeilen ENTFERNEN, nicht ersetzen durch irgendwas anderes... Vergesst einfach das was ich vorhin von vbNewLine ...

Verfasst am: 19.04.2008, 18:05 Aufrufe: 730

Wenn du den Inhalt der Datei in der Variablen hast, kannst du doch per Split(vbCRLf) jede Zeile in ein Array speichern. Dann gehst du per Schleife jedes Arrayfeld durch und überprüfst ob die Zeile leer ist bzw ob der Inhalt des Arrays CrLf, vbnewline,... ist.

Verfasst am: 19.04.2008, 17:39 Aufrufe: 730

Den Inhalt in eine Variable laden und per Left, Right oder Mid das letzte Zeichen, in dem Fall vbnewline, löschen

Verfasst am: 19.04.2008, 17:27 Aufrufe: 730

Also es gibt ja einen Befehl, namens "vbNewLine". Nun möchte ich aber nicht eine zeile nach unten, sondern nach oben ... wie geht das? vllt so: "vbDelLine"?

Verfasst am: 17.04.2008, 18:58 Aufrufe: 1949