Zeilenumbrüche in Visual Basic?

Hallo zusammen, vorweg mir sind "vbNewLine" und Streamwriter.WriteLine bekannt aber ich habe folgendes Problem (vielleicht missverstehe ich auch oben genannte Dinge): Ich arbeite an einem Programm (für den privaten Gebrauch), das Einträge speichern und diese mittels eines Streamwriters in eine Textdatei schreiben soll. entsprechender Code: Try

        Dim fs As New System.IO.FileStream("GamemasterSave.txt", IO.FileMode.Create)
        Dim sw As New System.IO.StreamWriter(fs)


        For Each h As String In oPathList

            sw.WriteLine(h + ",")

        Next
        sw.Close()

    Catch ex As Exception

        MessageBox.Show("Beim Speichern ist ein Fehler aufgetreten.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

Das Problem ist, dass kein einfacher Zeilenumbruch eingefügt wird, sondern neben dem Zeilenumbruch noch eine weitere Zeile, was bei einer Funktion der Anwendung Probleme verursacht, die ich in der Textdatei ausbessern muss. Es funktioniert richtig, wenn ich nur "Write" verwende, aber ich finde es so schöner, wenn ich mal etwas in der Textdatei suchen muss/will. Danke schon mal im voraus.

3 Antworten

genericdevice

07.09.2017, 15:56

So ganz versteh ich dein Problem noch nicht, aber was ist, wenn du einfach in "h" mit replace enter entfernst, hab ewig nix mehr in vb gemacht

also sowas (ungetestet, sollte aber gehen) z.B.

h = h.Replace(vbCr, "").Replace(vbLf, "")

Fragenkaese

Fragesteller

07.09.2017, 16:02

Danke, es sieht so aus, dass das das Problem gelöst hat.

DodgeRT

07.09.2017, 15:47

alter.... ich hab vor fast 15 jahren mal als vb-programmierer gearbeitet. ich glaub ich hab zeilenumbrüche immer direkt angegeben mit char(10) und char(13). also return und new line (wenn ichs noch richtig im kopf hab).

Snakefist23

07.09.2017, 15:50

schon mal mit vbcrlf versucht?

Fragenkaese

Fragesteller

07.09.2017, 15:55

liefert bei mir das gleiche Ergebnis: Zeilenumbruch+ leere Zeile zwischen den Einträgen

Snakefist23

07.09.2017, 15:58

@Fragenkaese

Also wenn du den Code wie oben aufgeführt ausführst dann bekommst du noch ne leere Zeile dazwischen? Ohne Zeilenumbruchsfunktion?

Snakefist23

07.09.2017, 16:03

@Fragenkaese

https://docs.microsoft.com/de-de/dotnet/api/System.IO.StreamWriter?view=netframework-4.7

Hier in dem Beispiel wirds genauso gemacht.

Ohne Zeilenumbruchsfunktion. Also geh ich davon aus dass WriteLine das automatisch macht.

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

Prüfen ob Abfrage Daten enthält VBA Access?

Hallo zusammen,

ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.

Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.

Teil der Ereignisprozedur "Beim Klicken" für den Button:

Private Sub Befehl96_Click()
    Dim stDocName As String     Dim fileName, fldrPath, filePath As String     Dim answer As Integer       Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String  'E-Mail     Dim intPort As Integer     Dim cdoMsg As CDO.Message
    Const cdoAnonymous = 0          Const cdoBasic = 1      Const cdoSendUsingPort = 2          stDocName = "Artikeländerungsprotokoll_ARTGruppe"     DoCmd.OpenQuery stDocName, acNormal, acEdit          fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren"     fldrPath = "K:\ARTIKEL\SQL_Protokolle"     filePath = fldrPath & "\" & fileName & ".pdf

    If Dir(filePath) <> "" Then
        
        answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
        "Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
    
    If answer = vbNo Then Exit Sub
    End If
 
   DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath

Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.

Ich bin ein Anfänger im programmieren und tue mir schwer...

Kann mir bitte jemand helfen?

...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

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

C# bestimmte Zeile mit Text aus einer Textdatei lesen?

Hallo zusammen.

Ich möchte in C# aus einer Texdatei eine bestimmte Zeile finde, beispiel wo "Error" steht, wie mach ich das beispielsweise in dem folgenden Code?

            FileStream fs = new FileStream("C:\\Program Files (x86)\\Steam\\steamapps\\common\\OMSI 2\\logfile.txt", FileMode.Open);
        StreamReader sr = new StreamReader(fs);
        string zeile;

        while (sr.Peek() != -1)
        {
            zeile = sr.ReadLine();
            lstLog.Items.Add("" + zeile + "\n");
        }
        sr.Close();

Grüße und danke im Vorraus!:)

...zur Frage

Ableitung einer Formel für VBA

Hallo Leute, ich habe folgendes funktionierendes Codefragment, welches abwecheseln de den Inhalt aus den Spalten A und B in einer Textbox darstellt:

Sub MehrereSpaltenZeilenweiseInTextbox()
    Dim i As Long, j As Long
    Dim varQ As Variant, varZ() As Variant
   varQ = Range("A1:B9").Value
   ReDim varZ(1 To UBound(varQ, 1) * UBound(varQ, 2))
   For i = 1 To UBound(varQ, 1)
   For j = 1 To UBound(varQ, 2)
    varZ(i * UBound(varQ, 2) - UBound(varQ, 2) + j) = varQ(i, j)
   Next j
   Next i
 TextBox1 = Join(varZ, vbNewLine)
  End Sub

Das entscheidende ist diese Formel:

varZ(i * UBound(varQ, 2) - UBound(varQ, 2) + j) = varQ(i, j)

Wie kann ich diese Formel herleiten? Hat jemand eine Idee? Die Formel ist richtig, alles funktioniert toll, aber wie leite ich sie her?

...zur Frage

In Java einen Text in eine Datei einfügen

Hallo,

ich habe eine Frage zum Einfügen eines Textes in eine Textdatei (.txt) mittels Java (siehe Bild).

Ich möchte eine Zahl, diese ist schon ein String, einmal in die Textdatei Test.txt und als BackUp in die Textdatei BackUp.txt schreiben. (Die Methoden werden in einer weiteren Methode "speichern(String pNummer)" direkt hintereinander aufgerufen.)

Dabei soll vor jeder eingefügten Zahl ein Zeilenumbruch sein. Dies geschieht mit Hilfe des Befehls ".write(System.getProperty("lineSeperator"))". Nur leider funktioniert das nicht so ganz. Java kann den Befehl ".write(System.getProperty("lineSeperator"))" nicht in EINER Methode (speichern(String pNummer)) ZWEIMAL aufrufen.

Was kann ich tun, damit in beiden Textdateien die Zahlen untereinander aufgeschrieben werden? Gibt es noch einen anderen Befehl, mit dem man einen Zeilenumbruch realisieren kann?

Vielen Dank im Vorraus, Jonas918

...zur Frage

VBA - Zwischenteil in Dateinamen ändern?

Hi zusammen,

ich muss folgende Dateinamen per Skriptfür rund 1000 Dateien wie folgt ändern:

Von:

3220022-8006-Amager_25_5_citrus-D-00

In:

3220022_8006_P_1

Den letzten Teil also D-00 in P_1 habe ich bereits hinbekommen. Wie ich jetzt aber alles nach dem ersten Zahlenpaar lösche weiß ich nicht.

Mein bisheriges Skript:

Sub Ordner_Auslesen()

'Bibliothek aktivieren

'Variablen dimensionieren

Dim fso As New FileSystemObject

Dim Pfad As String

Dim Ordner As Files

Dim Datei As File

'Pfad auslesen

Pfad = Tabelle1.Range("A1").Value

'Existiert der Ordner?

If fso.FolderExists(Pfad) Then

'Alle Dateien des Ordners einlesen

Set Ordner = fso.GetFolder(Pfad).Files

'Schleife über alle Dateien des Ordners

For Each Datei In Ordner

'Datei ausgeben

'Debug.Print Datei.Name

'Datei umbenennen

If InStr(Datei.Name, "D-00") <> 0 Then

Datei.Name = Replace(Datei.Name, "D-00", "P_1")

End If

Next Datei

Else

MsgBox "Dieser Ordner existiert nicht."

End If

End Sub

Kann mir jemand helfen?

...zur Frage

Visual Basic Script: ZUFALLSZAHL (zwischen 1 und 30)

Hallo Leute ,

ich würde gerne bei VBS eine Zufallszahl generieren lassen (zwischen 1 und 30) !

Ich habe 30 Witze parat. Die Zufallszahl soll dann einen davon auswählen!

Ich hoffe ihr findet eine Lösung. Google hat dazu nicht so viel ausgespuckt:

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

witznr = msgbox ("Witz Nr." & zufallszahl & "!")

If zufallszahl = 1 Then

witz0 = msgbox ("blablabla....")

If zufallszahl = 2 Then

witz1 = msgbox ("blablabla....")

...

Else

error = msgbox ("Fehler!")

Das Problem ist dass mir der PC immer eine Fehlermeldung schickt (Bild im Anhang).

Meine Frage ist deshalb ob das mit....

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

...stimmt!

Vielen Dank schon einmal im Voraus!

LSeven

...zur Frage

c# Primzahlen?

Hey liebe Community,

ich hätte da mal eine Frage. Ich habe die Möglichkeit, meinen Code etwas zu verändern. Bisher habe ich mit dem Code geprüft, ob die Eingabe des Benutzers eine Primzahl ist. Wie könnte ich es machen, dass z.B. der Benutzer eine Zahl eingibt (4) und die ersten vier Primzahlen ausgegeben werden?

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;

namespace Primzahlen
{
  class Program
  {
    static bool Primzahl(int primzahl)
    {
      bool ergebnis = false;
      int zähler = 0;

      for (int i = 1; i <= primzahl; ++i) // Zahl wird durch Teiler geteilt
      {
        if (primzahl % i == 0) //Teilung ohne Restwert, dann für 1 zum Zähler hinzufügen
        {
          zähler = ++zähler;
        }
      }

      if (zähler == 2) //Wenn Zahl nur durch sich und 1 teilbar ist, Ausgabe (Da Zähler auf 2 ist)
      {
        ergebnis = true;
      }

      return ergebnis;
    }

    static void Main(string[] args)
    {
      Console.Title = "Primzahlen";
      StreamWriter sw = new StreamWriter("Primzahlen.txt");

      Console.WriteLine("Geben Sie eine Zahl ein");
      string eingabe = Console.ReadLine();
      sw.WriteLine(eingabe);
      sw.Close();

      String dateiName = "Primzahlen.txt";
      StreamReader reader = null;
      int zahl = 0;
    
      try
      {
        reader = new StreamReader(dateiName);
        string zeile = reader.ReadLine();
        zahl = Convert.ToInt32(zeile);
      }
      catch (Exception ex)
      {
        Console.WriteLine(ex.Message);
      }
      finally
      {
        if (reader != null)
          reader.Close();
      }

      if (Primzahl(zahl))
      {
        Console.WriteLine("Das ist eine Primzahl");
      }
      else
      {
        Console.WriteLine("Keine Primzahl");
      }

      Console.ReadLine();
    }
  }
}

Vielen Dank!

...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

C# Passwort ändern und speichern?

Hey liebe Community,

ich habe mal eine Frage an alle CSharpler…

Ich möchte sehr gerne (als Test) eine einfache ConsoleApp erstellen. Wenn ich diese starte, soll ich ein Passwort eingeben, welches ich für den nächsten Start benötige. Ebenfalls möchte ich eine "Passwort ändern-Funktion" einfügen.

Mein Code (nicht fertig) ist folgender:

using System;
using System.IO;
using System.Threading;
using System.Collections;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Änderungen_speichern
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Title = "Änderungen speichern";
            //Hier soll ich aufgefordert werden, mein beim letzten Mal geändertes Passwort einzugeben
            string pfad = "Passwort.txt";
            FileStream fs = new FileStream(pfad, FileMode.Create, FileAccess.Write);
            StreamWriter sw = new StreamWriter(fs);
            Console.Write("Passwort auswählen: ");
            string newPassword = Console.ReadLine();
            sw.WriteLine("Folgendes Passwort wird für den nächsten Start benötigt: "+ newPassword);
            sw.Close();
            fs.Close();
        }
    }
}

Ich hoffe es kann mir wer helfen... Sollte was unklar sein, einfach fragen.

Danke im Voraus ;)

MfG

Ollig00

...zur Frage

Mit VBA Dateien in einem Ordner umbenennen?

Ich habe es mithilfe vom Internet und einigen sehr wenigen Kenntnissen meinerseits geschafft, mir einen Code zu schreiben, mit dem ich Dateien (Fotos - also JPG-Dateien) umbenennen kann. Leider habe ich einen Teil des Codes gelöscht und dies gespeichert. Somit funktioniert leider gar nichts mehr und ich bekommen immer den Fehler, dass die Datei nicht gefunden werden kann. Die Meldung bekomme ich immer in der Zeile "Name File.Name As x".

Kann mir bitte jemand helfen?

Hier mein Code:

  Shell "Explorer.exe C:\Users\LANGEMIC.HILTI\Documents\Temp, vbNormalFocus"
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set Folder = FS.GetFolder("C:\Users\LANGEMIC.HILTI\Documents\temp")
  
  Dim x As Single
  x = ActiveCell
  
  For Each File In Folder.Files
    If File.Name Like ".jpg" Then
      ActiveCell.Offset(1, 0).Select
      x = ActiveCell
      Name File.Name As x
      End If
  Next
End Sub

...zur Frage

Visual Basic: Brauche Hilfe bei einem Taschenrechner?

Hey Leute, ich mache gerade einen Taschenrechner in VB 6 und habe dabei zwei Probleme.

Problem:

Der Taschenrechner kann höchstens drei Zahlen aufeinmal speichern. Bei der Eingabe steht zuerst die erste Zahl in der Anzeige des Taschenrechners, dann nur das erste Rechenzeichen, dann nur die zweite Zahl, dann nur das zweite Rechenzeichen, dann nur die dritte Zahl und wenn man dann wieder auf ein Rechenzeichen klickt, werden zu erst die drei Zahlen zusammengerechnet und dann erscheinen das Ergebnis und das nächste Rechenzeichen GLEICHZEITIG in der Anzeige. Mein Problem ist, dass wenn ich dann die nächste Zahl eingebe, dass dann eigentlich diese allein ohne das Ergebnis und das Rechenzeichen in der Anzeige erscheinen sollte, aber bei mir steht dann alles gleichzeitig in der Anzeige.

2 . Problem:

Wenn ich zwei Zahlen und ein Rechenzeichen eingebe und dann auf Gleich klicke, kommt das richtige Ergebnis raus, aber bei drei Zahlen nicht.

Wenn man durch Null dividiert, soll in der Anzeige die Nachricht "Man darf nicht durch Null dividieren" erscheinen

Variablen, die ich benutzte:

Dim Zahl1 As Double

Dim Zahl2 As Double

Dim Zahl3 As Double

Dim Operation1 As String <-- für das erste Rechenzeichen

Dim Operation2 As String <-- für das zweite Rechenzeichen

Dim Ergebnis As Boolean <-- wird auf True gesetzt, wenn das Ergebnis alleine oder noch ein Rechenzeichen dazu in der Anzeige stehen

Dim Zahl1N As Boolean <-- werden alle drei benutzt, um zu sehen, ob eine Zahl positive oder negativ ist

Dim Zahl2N As Boolean

Dim Zahl3N As Boolean

Und die Anzeige des Taschenrechners heißt "edAnzeige"

Um das erste Problem zu lösen habe beim Code der Buttons für die Zahlen 0-9 folgendes geschrieben:

'Wenn ein Ergebnis und ein Rechenzeichen in der Anzeige stehen

ElseIf (Ergebnis = True) And (edAnzeige <> " ") And (Operation1 <> " ") And (Operation2 = " ") Then

edAnzeige = " "

Dadurch wurde das Problem bei den Rechenzeichen Mal und Geteilt gelöst, aber immer noch nicht bei Plus und Minus.

Hier ist der Teil des Codes, den ich für einen Fall beim Button geschrieben habe (2. Problem):

'Wenn die erste Zahl, ein Plus, die zweite Zahl, ein zweites Plus und eine dritte Zahl eingegeben wurde

ElseIf (edAnzeige <> " ") And (Operation1 = "+") And (Operation2 = "+") Then

Zahl3 = edAnzeige

edAnzeige = Zahl1 + Zahl2 + zahl3

Zahl1 = edAnzeige

Operation1 = ""

Operation2 = ""

Zahl1N = False

Zahl2N = False

Zahl3N = False

Ergebnis = True

Das hier habe ich beim Button für die Zahl 0 im Code geschrieben (Problem 3):

'Wenn durch Null dividiert wird

If (edAnzeige = " / ") Then

edAnzeige = "Man darf nicht durch Null dividieren"

Der Code für das dritte Problem klappt allerdings auch nicht.

Ich kann bei keinem der Codes irgendwelche Fehler entdecken. Deshalb hoffe ich, dass mir hier vielleicht jemand weiterhelfen kann.

LG Hiavatha8

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen