in My.Resources suchen

VBHunter · 4. März 2018, 11:05

Hallo leute,

Ich habe einige Datein in meinen My.Resources ordner z.b. Dienst_Mo-Do_1 .... Dienst_Mo-Do_2.... Dienst_Mo-Do_4 ....usw....
ich möchte das diese daten in meine Labels geladen werden dazu läd er es ja vom mein Resources ordner, er läd die datei in ein Bestimmten ordner und gibt die dann wieder. Das Problem ist nur ich möchte ja nicht bei jeder datei einzeln das angeben:

VB.NET-Quellcode

IO.File.WriteAllText(Application.StartupPath & "\Dokumente\Dienst_Mo-Do_1.txt", My.Resources.Dienst_Mo-Do_1)

sondern per If die bestimmten datein ersuchen lassen, habe ich also dienst 2 ausgewählt soll er My.Resources.Dienst_Mo-Do_2 laden

habe es momentan so:

VB.NET-Quellcode

IO.File.WriteAllText(Application.StartupPath & "\Dokumente\Dienst_" & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem & ".txt", My.Resources.Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem)

da sagt er "Dienst_ ist kein member von My.Resources" ....

wie kann ich es abändern das er es so übernimmt

My.Resources.Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem

hier mal meine ganze IF funktion

VB.NET-Quellcode

If RB_MobisDo.Checked Then
IO.File.WriteAllText(Application.StartupPath & "\Dokumente\Dienst_" & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem & ".txt", My.Resources.Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem)
Dim line = IO.File.ReadAllText(Application.StartupPath & "\Dokumente\Dienst_" & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem & ".txt")
Dim v As String() = line.Split(";"c)
lbl_Dienstdatum.Text = v(0)
lbl_Dienstnummer.Text = v(1)
lbl_Beginn.Text = v(2)
lbl_Ende.Text = v(3)
lbl_Dauer.Text = v(4)
lbl_Hof.Text = v(5)
lbl_Bezahlte_Zeit.Text = v(6)
lbl_Pause.Text = v(7)
lbl_Unterbrechnung_von.Text = v(8)
lbl_Unterbrechung_bis.Text = v(9)
lbl_VB.Text = v(10)
lbl_NB.Text = v(11)
lbl_hinweise.Text = v(12)
lbl_Pausenzeiten.Text = v(13)
lbl_Dienstvon.Text = v(14)
lbl_Dienstbis.Text = v(15)
lbl_LKR.Text = v(16)
lbl_F.Text = v(17)
ElseIf RB_Fr.Checked Then ..... und so weiter

Danke im vorraus

RodFromGermany · 4. März 2018, 11:26

VBHunter schrieb:

My.Resources ordner

Sind sie Mwember der Ressourcen Deines Programms?
Vielleicht so was:

C#-Quellcode

using System.Reflection;
// ...
Assembly ass = Assembly.LoadFile("DEINE_EXE.exe"); // Pfad zur eigenen Assembly
string[] names = ass.GetManifestResourceNames();
this.listBox1.Items.AddRange(names);

VBHunter · 4. März 2018, 11:45

danke @RodFromGermany

Ja ich hab sie meiner Ressource hinzugefügt ...
wenn ich es so eingebe My.Resources.Dienst_Mo-Do_1 dann klappts ja.... aber er soll ja "Mo-Do" und "1" ersetzen durch die auswahl des Users deshalb war so ja meine idee

VB.NET-Quellcode

My.Resources.Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem

Ja diese C# funktion hatte ich auch kurz vorhher entdeckt aber ich bekomme das nicht in meine bedürfnisse programmiert. Da könnte ich ja auch nur den Direkten dateinamen angeben "Dienste_Mo-Do_1" statt "Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem" oder?

RodFromGermany · 4. März 2018, 15:16

VBHunter schrieb:

diese C# funktion

ist eine .NET-Funktion und unter VB genau so anwendbar.
=====
Probier mal so was:

C#-Quellcode

Imports System.Resources
Imports System.Reflection
// ....
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim resManager As ResourceManager = My.Resources.ResourceManager
Using resReader As New ResourceReader(Assembly.GetExecutingAssembly.GetManifestResourceStream(resManager.BaseName & ".resources"))
Dim id As IDictionaryEnumerator = resReader.GetEnumerator
While id.MoveNext
If (TypeOf id.Value Is Bitmap) Then // Hier die Typen Deiner Ressources abtesten
Dim bmp As Bitmap = DirectCast(id.Value, Bitmap)
PictureBox1.Image = bmp
MessageBox.Show(id.Key.ToString)
End If
End While
resReader.Close()
End Using
End Sub

VBHunter · 4. März 2018, 16:26

wieder danke @RodFromGermany

wie kann ich das in Text umwandeln? der Datentyp von txt ist doch sting ? .... komm mit der auflistung noch nicht ganz hinterher

VB.NET-Quellcode

Dim resManager As ResourceManager = My.Resources.ResourceManager
Using resReader As New ResourceReader(Assembly.GetExecutingAssembly.GetManifestResourceStream(resManager.BaseName & ".Resources"))
Dim id As IDictionaryEnumerator = resReader.GetEnumerator
While id.MoveNext
If (TypeOf id.Value Is String) Then '// Hier die Typen Deiner Ressources abtesten
'Dim txt As String = DirectCast(id.Value, String)
Dim line = IO.File.ReadAllText(Application.StartupPath & "\Dokumente\Dienst_" & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem & ".txt")
Dim v As String() = line.Split(";"c)
lbl_Dienstdatum.Text = v(0)
lbl_Dienstnummer.Text = v(1)
lbl_Beginn.Text = v(2)
lbl_Ende.Text = v(3)
lbl_Dauer.Text = v(4)
lbl_Hof.Text = v(5)
lbl_Bezahlte_Zeit.Text = v(6)
lbl_Pause.Text = v(7)
lbl_Unterbrechnung_von.Text = v(8)
lbl_Unterbrechung_bis.Text = v(9)
lbl_VB.Text = v(10)
lbl_NB.Text = v(11)
lbl_hinweise.Text = v(12)
lbl_Pausenzeiten.Text = v(13)
lbl_Dienstvon.Text = v(14)
lbl_Dienstbis.Text = v(15)
lbl_LKR.Text = v(16)
lbl_F.Text = v(17)
MessageBox.Show(id.Key.ToString)
End If
End While
resReader.Close()
End Using

hab auch noch was von My.Resources.ResourceManager gelesen kann ich dies nicht anwenden um so zu überprüfen was der User eingegeben hat?

hier mal ein kleines Bild wie mein Programm aufgebaut ist, der User wählt ein wochentag z.b. "Mo-Do" und dann die Dienstnummer z.b. "1" dann soll er die Textdatei der Resource Lesen mit den namen "Dienst_Mo-Do_1" und weißt es je seinen Label zu in diesen fall v(0) der wochentag, v(1) Dienstnummer .... usw.

Das gleiche jetzt wenn ich Dienst 2 wählen würde nur natürlich mit anderen inhalten.

RodFromGermany · 4. März 2018, 19:17

VBHunter schrieb:

komm mit der auflistung noch nicht ganz hinterher

Da musst Du mal nen Haltepunkt drauf setzen und Dir den Inhalt und den Typ der Variablen ansehen. Debuggen, Fehler finden und beseitigen

VBHunter · 9. März 2018, 22:35

Leider bin ich mit meiner Frage noch nicht weitergekommen.

Ich hab die Textdatei mal Testweise in mein Dokumente ordner gepackt und dann ging es ohne Probleme öffnen....

aber ich will ja das er es aus der Resources nimmt ....
die datei aus der Resource herrunterläd / reinläd in den Ordner Dokumente und es ja dann öffent ...

exc-jdbi · 10. März 2018, 00:57

@VBHunter

Sollte wirklich nichts klappen, dann mach es mit einer Klasse. Hab noch ein Beispiel angehängt.

Ist halt ein bisschen Schreibarbeit, und sollten sich die Resource ändern, muss es angepasst werden.
Aber so klappt das immer.

MyResource

VB.NET-Quellcode

Public Class MyRessourceManager
Private Shared Pathdoc As String = ".\Dokument\"
Public Shared Function GetDokResource(ByVal filename As String) As String
Dim pathfile = Combine(Pathdoc, filename)
Using sr As New StreamReader(pathfile)
Return sr.ReadToEnd()
End Using
End Function
Public Shared Function DeleteAllResource() As Boolean
Dim pathfile As String
Dim resource = GetAllResource()
For i As Int32 = 0 To resource.Length - 1
pathfile = Combine(Pathdoc, resource(i).filename)
If File.Exists(pathfile) Then
File.Delete(pathfile)
End If
Next
If Directory.Exists(Pathdoc) Then
Directory.Delete(Pathdoc)
End If
Return True
End Function
Public Shared Sub SaveAllResourceToHD()
Dim resource = GetAllResource()
For i As Int32 = 0 To resource.Length - 1
SaveResource(resource(i))
Next
End Sub
Private Shared Sub SaveResource(ByVal ri As ResourceInfo)
If ri IsNot Nothing Then
If Not Directory.Exists(Pathdoc) Then
Directory.CreateDirectory(Pathdoc)
End If
Dim pathfile = Combine(Pathdoc, ri.filename)
Using sw As New StreamWriter(pathfile)
sw.Write(Encoding.UTF8.GetString(ri.resource))
End Using
End If
End Sub
Private Shared Function GetAllResource() As ResourceInfo()
Dim res As New List(Of ResourceInfo)
res.Add(Dienst_Mo_Do_1)
res.Add(Dienst_Mo_Do_2)
res.Add(Dienst_Mo_Do_3)
res.Add(Dienst_Mo_Do_4)
Return res.ToArray
End Function
Private Shared Function Dienst_Mo_Do_1() As ResourceInfo
Return New ResourceInfo With {.filename = "Dienst_Mo_Do_1.txt", .resource = My.Resources.Dienst_Mo_Do_1}
End Function
Private Shared Function Dienst_Mo_Do_2() As ResourceInfo
Return New ResourceInfo With {.filename = "Dienst_Mo_Do_2.txt", .resource = My.Resources.Dienst_Mo_Do_2}
End Function
Private Shared Function Dienst_Mo_Do_3() As ResourceInfo
Return New ResourceInfo With {.filename = "Dienst_Mo_Do_3.txt", .resource = My.Resources.Dienst_Mo_Do_3}
End Function
Private Shared Function Dienst_Mo_Do_4() As ResourceInfo
Return New ResourceInfo With {.filename = "Dienst_Mo_Do_4.txt", .resource = My.Resources.Dienst_Mo_Do_4}
End Function
End Class
Public Class ResourceInfo
Public resource() As Byte
Public filename As String
End Class

VBHunter · 10. März 2018, 12:03

Hi, danke @exc-jdbi super Sache nur muss ich da nicht auch in der shared Funktion die Ressourcen vorher manuell angeben? Wollte es ja als Klasse haben die dann immer den Namen überprüfen soll da es ja eigentlich immer gleich ist Dienst_Radiobuttonauswahl_Comboboxauswahl.txt

exc-jdbi · 10. März 2018, 12:41

Ein bisschen an dein Projekt muss es schon angepasst werden. Ich wollte ja nur ein Beispiel bringen.

Du kriegst wie ich das gesehen habe die Infos aus dem Radiobutton und der Combobox. Jetzt muss du natürlich die Namen der Resourcen so anpassen, dass es eindeutig definiert ist, welche Kombination zu welcher Resource passt.

Ich geh davon aus, dsas du mehrere Resourcendateien drin hast. Oder ist es nur eine Resourcedatei für alle?

in My.Resources suchen

in My.Resources suchen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VBHunter schrieb:

C#-Quellcode

VB.NET-Quellcode

VBHunter schrieb:

C#-Quellcode

VB.NET-Quellcode

VBHunter schrieb:

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben