---

Hallo,
Möchte in VB.Net bereits importierte Textdatei auslesen und ihn eine bereits geöffnete Datei schreiben.

Code:

---

        Try
           
            Dim Zapfen1 As StreamReader = New StreamReader("Zapfen_R.dat")
            Dim Textzeile5

            Do Until Zapfen1.Peek() = -1 ' Schleife bis Dateiende.
                Textzeile5 = Zapfen1.ReadLine
                mpr1.WriteLine(Textzeile5)
            Loop
        Catch ex As Exception
            MessageBox.Show("Resource nicht gefunden!", "Error")
        End Try

---

Das Schreiben in eine Datei funktioniert bereits und wenn ich die Datei nicht importiere funktioniert es auch,
will aber die Textdateien importieren, da ich nur eine ".EXE" Datei möchte.
danke im voraus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Was für ein Objekt ist die "mrp1" (StreamWriter?)?
Wird ein String bei ReadLine zurückgeben?
Ist der Dateiname/Pfad korrekt (bzw wird ein Fehler ausgelöst)?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Grüß dich
dieser Code funktioniert bereits

Code:

---

  Sub Textschreiben(ByVal mpr1, ByVal Pfad)
        Dim Zapfen As New FileStream(Pfad, FileMode.Open)
        Dim Zapfen1 As New StreamReader(Zapfen, System.Text.Encoding.Default)
        Try
            Dim Textzeile5
            Do Until Zapfen1.Peek() = -1 ' Schleife bis Dateiende.
                Textzeile5 = Zapfen1.ReadLine
                mpr1.WriteLine(Textzeile5)
            Loop
        Catch ex As Exception
            MessageBox.Show("Resource nicht gefunden!", "Error")
        End Try
        Zapfen1.Close()
    End Sub

---

Pfad = z. B.: "C:\Daten\Test.dat"
mpr1 ist im Hauptprogramm bereits eine geöffnete Datei wo die hier geöffnete angehängt wird (funktioniert ja bereits)

Aber ich habe diese Datei (Test.dat) als Resource in mein Projekt importiert und möchte diese eben genau so verwenden.
Sonst muss ich immer diese Datei mitkopieren, wenn ich dieses Programm weitergeben möchte.
Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo DrCNC,

Stell' mal deine Projekte auf Option Strict On, so ist das nicht wirklich schön. Ich habe es ein wenig umgeschrieben:

Code:

---

    'Aufruf im Code:
    If WriteText(StrW, Filepath) Then
        'Erfolgreich
    Else
        'Fehler
    End If

    Function WriteText(ByVal StrW As StreamWriter, ByVal Filepath$) As Boolean
        If Directory.Exists(Path.GetDirectoryName(Filepath)) Then Return False
        Using FS As New Filestream(Filepath, FileMode.Open)
            Using StrR As New StreamReader(FS, System.Text.Encoding.UTF8) 'Oder "Default"
                Do
                    StrW.WriteLine(StrR.ReadLine)
                Loop Until StrR.EndOfStream
                StrR.Close
            End Using
            FS.Close
        End Using
        Return True
    End Function

---

Code ungetestet...

PS: Bist du beim Ver-/Entschlüsseln weitergekommen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi DrCNC,

suchst du so was:?

Code:

---

Try
           
            Dim res AS Stream
            res = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("NS.Zapfen_R.dat")'Namespace anpassen
            Dim Zapfen1 As StreamReader = New StreamReader("res")
         
            Dim Textzeile5
            Do Until Zapfen1.Peek() = -1 ' Schleife bis Dateiende.
                Textzeile5 = Zapfen1.ReadLine
                mpr1.WriteLine(Textzeile5)
            Loop
        Catch ex As Exception
            MessageBox.Show("Resource nicht gefunden!", "Error")
        End Try

---

Das Thema läßt darauf schließen.

Fehlerbehandlung musst selbst einbauen, oder Higlav bitten

Gruß
Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@DrCNC: Du hast also eine Textdatei(*.txt) in die Ressourcen eingebunden und möchtest diese jetzt exportieren, verstehe ich das richtig?
Dateien, die du in die Ressourcen abgelegt hast, kannst du mit

Code:

---

My.Resources.[DATEINAME]

---

abgreifen. Bei einer Textdatei kriegst du gleich einen String zurück. Somit wäre dein Anliegen wie folgt lösbar:

Code:

---

File.WriteAllText("Pfad zur Datei", My.Resources.Datei)

---

Wieder mal ungetestet 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Higlav
das Verschlüsseln habe ich nicht weiter verfolgt, da ich es nicht mehr brauche.
deinen Code habe ich nicht zum Laufen gebracht (kommt nie in die Schleife)
Filepath soll die Resourcedatei "Test.dat", wie spreche ich diese an,
mit My.resource.test.dat funktioniert es auch nicht.
Nocheinmal,
mein Code funktioniert mit externen Dateien einwandfrei nur nicht mit den Resourcendateien
danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eine *.dat-Datei? Dann gibt dir der

Code:

---

My.Resources.Dateiname

---

-Befehl ein Byte-Array zurück, das du mit

Code:

---

File.WriteAllBytes("Dateipfad", My.Resources.Datei)

---

abspeichern kannst. Du hast die Resourcedatei schon per Drag&Drop in den Resource-Bereich kopiert, oder?
Was für eine Framework-Version?

[Diese Nachricht wurde von Higlav am 04. Feb. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

My.Resources gibt es nur in VB

in VB.Net muss man schon die Assembly benutzen (s.o.)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich progge nur in VB.NET (FW 4.0 oder 4.5 wegen Await/Async) und dort gibt es definitiv ein "My.Resources"...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Comos User
Dein Code hat auch nicht funktioniert, kommt auch nicht bis zur Schleife
ich weis aber nicht warum
danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

RessourceDemo.zip

Hallo,

dann versuch es mal so. Du fügst deine Datei (Extension entfernen) zu den Resourcen dazu.
Bei mir ist es eine PNG Datei mit dem Name "Wartung_kl".

Code:

---

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ' Ausgabedateiname bestimmen
        Dim Dateiname As String = System.IO.Path.GetDirectoryName(Application.ExecutablePath) & "\Ausgabe.png"
        ' Datei erzeugen  (Die Resourcedatei hat keine Extension!)
        My.Computer.FileSystem.WriteAllBytes(Dateiname, My.Resources.wartung_kl, False)
        ' Datei öffnen
        Process.Start(Dateiname)
    End Sub

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

TextRessource.png

Für was die Datei mit dem SteamReader lesen? Geht doch aus den eingebetteten Ressourcen viel einfacher! Aber in den Ressourcen FileType "Text" nicht vergessen zu setzen.

Ich bette so schon geraume Zeit rtf-Dateien für die About-Boxen meiner Programme ein.

------------------
Patrick

[Diese Nachricht wurde von Patrick Weber am 05. Feb. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Einbeten.pdf

Hallo Patrick
Habe schon alles probiert aber leider keinen erfolg,
habe ich wo Einstellungen noch vergessen,
Imports System.IO habe ich auch gesetzt
danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Patrick
Dein Hinweis hat mir soeben den Durchbruch ermöglicht.
FileType "Text" habe ich nicht gesetzt.
Funktioniert jetzt so wie es möchte.
Danke noch einmal

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP