Visual Basic: Wie kann ich Text in einer Textdatei speichern?

Ich will, dass der Inhalt von den Textboxen in einem Textdokument eingespeichert wird. Es soll aber den letzten Eintrag nicht überschreiben, sondern nur hinzufügen.

Code:

Public Class Form1
  Private movielibarysave As String = Application.StartupPath & \movielibarysave.txt"

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim mywriter As New IO.StreamWriter(movielibarysave)
    Dim SaveFile As New SaveFileDialog
    mywriter.WriteLine("Titel: " + TextBox3.Text + " | " + "Jahr: " + TextBox5.Text + " | " + "Genre: " + ComboBox1.Text + " | " + "Format: " + ComboBox2.Text)
    mywriter.Close()

01.02.2020, 22:16

Also der nächste Eintrag sollte dann einfach nur in einer neuen Zeile stehen. (im Txt Dokument)

01.02.2020, 22:35

Antwortet wer auf dieser Seite auch??

1 Antwort

FinnB132

01.02.2020, 22:43

System.IO.StreamWriter(movielibrarysave, TRUE)

Versuch es mal so.

StreamWriter(String, Boolean)

Initialisiert eine neue Instanz der StreamWriter-Klasse für die angegebene Datei unter Verwendung der Standardcodierung und -puffergröße. Wenn die Datei vorhanden ist, kann sie überschrieben oder an sie angefügt werden. Wenn die Datei nicht vorhanden ist, erstellt dieser Konstruktor eine neue Datei.

StreamWriter(String)

Initialisiert eine neue Instanz der StreamWriter-Klasse für die angegebene Datei unter Verwendung der Standardcodierung und -puffergröße.

Woher ich das weiß:Studium / Ausbildung – 4 Jahre Fachinformatiker für Anwendungsentwicklung

3 Kommentare 3

rifal010

Fragesteller

01.02.2020, 22:46

Wo muss ich das dazu schreiben?

rifal010

Fragesteller

01.02.2020, 23:07

Es wird trotzdem noch immer überschrieben.

PWolff

01.02.2020, 23:14

@rifal010

Eigentlich sollte die angegebene Schreibweise

TRUE

als unbekannter Bezeichner zurückgewieden werden. Richtig wäre

True

. Um diese Art Fehler zu vermeiden, empfehle ich, vor die erste Zeile der Datei

Option Explicit

einzufügen, und, damit der Editor das später automatisch macht, in den Einstellungen den Haken vor

Variablendeklaration erforderlich

zu setzen.

Ähnliche Fragen

Visual Basic Ping Pong Spiel

Ich komme nicht weiter, da ich komplett neu bin. Ich versuche momentan dieses Spiel: http://www.youtube.com/watch?v=fySEJPoV74Q zu programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler: ,,Das Item ist Read only``

Hier der Code:

Public Class Form1 Dim unten As Double = +5 Dim rechts As Double = +5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Visible = True Button2.Visible = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    Button2.Visible = True
    Button1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Stop()
    Button1.Visible = True
    Button2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    ball.Bottom -= unten
    ball.Right -= rechts

    If ball.Left <= 0 Then rechts = -5
    If ball.Right >= 772 Then rechts = +5
    If ball.Bottom >= 659 Then unten = -5
    If ball.Top <= 0 Then unten = +5

    Plattform1.Top = MousePosition.X

    If ball.Top >= Plattform2.Top Then Plattform2.Top += 5

End Sub

End Class

Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten. Hoffe das mir wer weiterhelfen kann =)

...zur Frage

Problem bei Visual Basic: "WinteDMAInteger" wurde nicht deklariert. Könnt ihr mir helfen?

Private Sub B_Points_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Points.Click 
    Dim points String = TextBox1.Text

    Try 
        WinteDMAInteger("DeadByDaylight", -00000C88, points)
    Catch ex As Exception
    End Try
End Sub

Fehlermeldung:

WinteDMAInteger

Fehler2 "WinteDMAInteger" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.

...zur Frage

Wie kann man bei Visual Basic einen Zufallsgenerator erstellen, der zufällige Funktionen durchführt?

Sehr geehrte Nutzer, ich habe ein Visual Basic Programm erstellt, dass unter anderem zufällige Funktionen durchführen soll. Zufällige Formen sollen dargestellt werden (form2.show, me.hide) Mein bereits erstellter Code ist: Dim random As New System.Random Function zufall() Select Case random.Next(0, 1) Case "0" Return form2.Show Me.Hide() Case "1" Return form3.show me.hide() End Select End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click label1.text = (zufall()) End Sub

Hat jemand Verbesserungsvorschläge für diesen Code? Ich denke mal das "Return" ist falsch aber Warum? Wenn es jemand weiß bitte sofort melden. Danke im Vorraus.

...zur Frage

Funkspiel Leitstelle programmieren?

Hi Leute, ich habe eine Frage. Ich bin mit meinem Freund eine Leitstelle für das Funkspiel Leitstelle Montabaur am programmieren(Wir sind die Funkspielleitung). Diese Programmieren wir mir Visual Basics, doch die Datenbankanbindung gestaltet sich schwerer als gedacht. Wir beide sind noch Anfänger in diesem Bereich also müssen wir oft im Internet nach Tutorials schauen, doch das ist alles Müll weil wir wollen dabei ja auch was lernen :D. Kann uns Dabei jemand helfen????

    Imports System.Collections.Specialized, System.Net, System.Text


Public Class LoginForm1

    Private nv As New NameValueCollection
    Private wv As New WebClient

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim name As String = UsernameTextBox.Text
        Dim pw As String = PasswordTextBox.Text

        nv.Clear()
        nv.Add("username", name)
        nv.Add("password", pw)

        Dim result() As Byte = wv.UploadValues("MeineURL", "POST", nv)
        Dim resultString As String = Encoding.ASCII.GetString(result)

        If resultString = "Login Erfolgreich" Then
            Form1.Show()
        Else
            MessageBox.Show(resultString)
        End If
 'Hier Kommt immer nur die Else Aufforderung auch wenn in dieser "Login
    Erfolgreich steht"
    End Sub

    
    Private Sub LoginForm1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Es wird immer Nur die MessageBox mit dem resultString angezeigt auch wenn in dieser steht "Login Erfolgreich"

Kann mir einer Helfen? Bitte ausführlich =) Oder ihr könnt, wenn ihr lust habt auf 134.255.229.193:9948 Diesem Teamspeak vorbeischauen

...zur Frage

VBA zu HTML Code umgewandelt - Zeilenumbrüche weg?

Hallo,

ich habe durch den unten beigefügten Code versucht eine E-Mail samt Signatur automatisch kommen zu lassen. Nun habe ich das Problem, dass die Absätze in der Mail weg sind und alles in einer Zeile ist. Wie behebe ich das?

Private Sub CommandButton2_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim S As String

Dim body As String

Dim htbody As String

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

If TextBox2.text = "" Or TextBox2.text = TextBox1.text Then

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgende/r Mitarbeiter/in ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text

Else

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgender Mitarbeiter ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text + " bis " + TextBox2.text

End If

htbody = fnConvert2HTML(htbody)

S = Environ("appdata") & "\Microsoft\Signatures\autoE-Mailsenden.htm"

If Dir(S, vbDirectory) <> vbNullString Then

S = S

S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).readall

With objMail

.To = "x.de"

.Subject = "Krankmeldung " + ComboBox1.text + " x"

htbody = body & " " & S

.htmlbody = "" & htbody & ""

.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

End With

Else

' With objMail

' .To = Empfänger

' .Subject = Betreff

' htbody = body '& " " & S

' .htmlbody = "" & htbody & ""

' .Display

' ' .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

' End With

End If

End Sub

Zudem noch folgende Funktion:

Function fnConvert2HTML(myText As String) As String

Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean

Dim i, chrCount, n As Integer

Dim chrCol, chrLastCol, htmlTxt As String

Dim myChar As String

bldTagOn = False

itlTagOn = False

ulnTagOn = False

colTagOn = False

chrCol = "NONE"

htmlTxt = "<html>"

chrCount = Len(myText)

End Function

Danke im voraus!!!

...zur Frage

VB.NET: Wie kann ich mit dem WebClient eine Datei an ein PHP-Skript senden?

Mein bisheriger Code:

Private Sub StartUpload(ByVal sUrl As String, ByVal sFileName As String)
End Sub

Private Sub CopyToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem1.Click
  Using oDlg As New OpenFileDialog
    oDlg.ShowDialog()

    If oDlg.FileName.Length > 0 Then
      StartUpload(_ServerName & "/upload.php", oDlg.FileName)
    End If
  End Using
End Sub

...zur Frage

Visual Basic: Verschiedene Boxen ausdrucken, z.B. Richtextbox und Picturebox und Steuersequenz für Barcode?

Hallo Experten, ich habe einen Star Bon-Drucker TSP-100 und habe eine Form entworfen, in die entweder manuell oder automatisch ein Text in eine Textbox und ein Bild in eine Picturebox geladen wird. Nun möchte ich diese Boxen ausdrucken und zwar auf einmal und zusätzlich mit der Grafik, die im Drucker gespeichert ist und mit einem Barcode, den der Drucker per ESC-Sequenz drucken können sollte....

Es sollte so aussehen: 1. Bonkopf 2. Picturebox 3. Barcode 4. Textbox

Ich habe folgenden Code:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 
    e.Graphics.DrawString(RichTextBox1.Text, New Font("Verdana", 20, FontStyle.Bold), Brushes.Black, 10, 10) 
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK 
        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print() 
    End If 
End Sub

    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print()
    Else : End If

End Sub

Muss ich für jedes Objekt einen eigenen Printdialog einbetten?

Und wie kann ich es schaffe, dass der Drucker eine Zahl, bsw. 4050607080 als Barcode im Code 128 o.ä. (kein EAN) druckt?

Für eure Antworten danke ich jetzt schon......

Ach ja, und frohe Ostern noch :-)

...zur Frage

VisualBasic text von Website auslesen?

Hi, Ich habe es soweit geschafft:

Dim wc As New Net.WebClient TextBox1.Text = wc.DownloadString("http://lalala.com/wladkal.txt")

ABER, der Text ist in einer Reihe, alles auf auf einmal (sind mehrere Zeilen auf der Website) ich will aber bei jedem Knopfdruck die nächste Zeile.

...zur Frage

Visual Basic Mail senden?

Hallo, Ich habe heute probiert ein Mail Programm zu schreiben mit dem ich Mails versenden kann, aber er zeigt mir dann an"Es ist ein fehler ufgetreten". Weiß jemand wo mein fehler ist ? Ich binn nähmlich noch recht neu in Visual Basic

MFG Denni2016

Imports System.Net.Mail
Public Class Form2
    Private Sub Senden_Click(sender As Object, e As EventArgs) Handles Senden.Click
        Dim Mail As New MailMessage
        Try
            If Empfänger.Text = "Test" Then
                Mail.From = New MailAddress("SenderMail@gmail.com")
                Mail.To.Add("EmpfängerMail@gmail.com")
                Mail.Subject = (Betreff.Text)
                Mail.Body = (Nachricht.Text)
                '---------------------------
                Dim smtp As New SmtpClient("smtp.gmail.com")

                smtp.Port = 587
                smtp.EnableSsl = True
                smtp.Credentials = New System.Net.NetworkCredential("SenderMail", "SenderMailPW")

                smtp.Send(Mail)
            End If
        Catch ex As Exception
            MessageBox.Show("Es ist ein fehler ufgetreten")
        End Try
    End Sub
End Class

...zur Frage

VB.NET Controls threadübergreifend ansprechen?

Hallo liebe Gutefrage.net-Community.

Bei meinem aktuellen VB.NET-Projekt (Server-Client-Chat) habe ich das Problem, dass ich aus der Sub, welche in einem separaten Thread ausgeführt wird, um eingehende Verbindungen abzufangen, der Listbox, die zur Anzeige für alle Aktionen des Server dient, beim Items hinzufügen die Fehlermeldung bekomme, dass die Listbox für einen anderen Thread erstellt worden ist.

Code des Extra-Threads:

Private Sub ListenToNewConnection()
  Item_add("Der Server läuft!")
  server = New TcpListener(ipendpoint)
  server.Start()

  While True
    client = server.AcceptTcpClient
    Dim c As New Connection connection...
    c.stream = client.GetStream
    c.streamr = New StreamReader(c.stream)
    c.streamw = New StreamWriter(c.stream)
    c.nick = c.streamr.ReadLine
    list.Add(c) ' und fügen sie der liste der clients hinzu.
    Item_add(c.nick & " has joined.")
    Dim t As New Threading.Thread(AddressOf ListenToConnection)
    t.Start(c)
  End While

Listbox-Aufruf:

Public Sub Item_add(item As String)
  lbConsole.Items.Add(item)
End Sub

Danke im Voraus für alle Antworten.

...zur Frage

Wieso geht dieser Email Senden Code bei Visual Basic 2015 nicht?

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim mailSubject As String = "Anwendung"
    Dim mailBody As String = "Now, you can get more programs und <a href="http://www.adobe.com/CC/youtube">www.adobe.com/CC/youtube</a>"
    Dim mailFrom As New Net.Mail.MailAddress("EMAIL*")
    Dim mailTo As New Net.Mail.MailAddress("EMAIL*")
    Dim myMail As New Net.Mail.MailMessage
    myMail.Body = mailBody
    myMail.Subject = mailSubject
    myMail.From = mailFrom
    myMail.To.Add(mailTo)

    Dim myClient As New Net.Mail.SmtpClient("smtpauths.bluewin.ch", 465)
    myClient.Credentials = New System.Net.NetworkCredential(mailFrom.Address, "Password*")
    myClient.EnableSsl = True
    myClient.Send(myMail)
End Sub

PS: Ich habe extra das Password und die Emails zu Email* und Passwor* geändert! Das ist im Programm selbstverständlich nicht der Fall

...zur Frage

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zur Frage

Visual Basic - Wie nutzt man Windows speech recognition richtig?

Hallo, seit langem suche ich schon seit langem nach einer Lösung im Internet system speech recognition in VB gescheit nutzen zukönnen. Bisher habe ich folgendes gefunden und genutzt.

//////////////////////

Imports System.Speech Public Class Form1

Public synth As New Speech.Synthesis.SpeechSynthesizer

Public WithEvents recognizer As New Speech.Recognition.SpeechRecognitionEngine

Dim gram As New System.Speech.Recognition.DictationGrammar()

Public Sub GotSpeech(ByVal sender As Object, ByVal phrase As System.Speech.Recognition.SpeechRecognizedEventArgs) Handles recognizer.SpeechRecognized

words.Text = phrase.Result.Text

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

recognizer.LoadGrammar(gram)

recognizer.SetInputToDefaultAudioDevice()

recognizer.RecognizeAsync()

End Sub

End Class

//////////////////////

Nur leider versteht mich in diesem Falle Vb kaum. Zb. wenn ich "Nur ein Test" sage versteht Vb "Blaum ein Text" Und wenn ich Cortana einmal das selbe sage versteht sie es... Und da ich einfach keine Lösung in bereits vorhandenen Threads finde hoffe ich das mir netterweise einer von euch helfen könnte. :)

...zur Frage

Visual Basic Frage alle Buttons gleichzeitig?

Hallo,

ich möchte etwas mit Visual Basic programmieren.

Erstmal möchte ich, dass man Buttons bewegen kann. Dafür habe ich folgenden Code:

Private Sub Button29_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Button29.MouseDown
  X = Control.MousePosition.X - Button29.Location.X
  Y = Control.MousePosition.Y - Button29.Location.Y
End Sub

Private Sub Button29_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Button29.MouseMove
  If e.Button = Windows.Forms.MouseButtons.Left Then
    point = Control.MousePosition
    point.X = point.X - (X)
    point.Y = point.Y - (Y)
    Button29.Location = point
  End If
End Sub

Wenn ich aber so weiter mache, muss ich um die 500 Buttons bearbeiten, weil der Code nur für die einzelnen Buttons geschrieben ist. Wie kann ich es so schreiben, dass ich alle Buttons gleichzeitig in den Code nehme? Oder geht das nicht?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen