waswiewo
Erfahrenes Mitglied
Hallo Leute!!
Ich stehe vor nem kleinen Problem, und zwar:
Ich habe ein Label (L1), welches bei einem Spiel ein Ergebnis anzeigt. Sobald dieses Ergebnis zwischen 2 und 170 liegt, wird in einem weiteren Label (fsp) ein dazu gehörender Text angezeigt. Dies habe ich bislang mit einem VLookup gemacht, wobei ich die Daten in einer Exeltabelle stehen habe.
Nun möchte ich - mehr aus Interesse - versuchen Diese Daten aus einer *.txt-Datei auszulesen und das Ergebnis auch in einem Label (fsp.Value) ausgeben.
Das ganze möchte ich in einem Modul speichern, weil ich öfter während des Spiels darauf zugreife.
Ich bin momentan hier:
Obigen Code habe ich im Netz gefunden, versucht zu verstehen, und dann versucht auf mein Problem hin anzupassen. Bislang ohne Erfolg.
varSuchbegriff ist eine Public Variabel und enthält immer eine Zahl von 2 - 170.
Die Textdatei ist so aufgebaut:
170;Text zu 170
169;Text zu 169
.
.
.
2;Text zu 2
In dem Label "fsp" möchte ich nur z.B. "Text zu 170" wiedergeben. Da komm ich gerade überhaupt nicht mehr weiter mit meinem "Können"^^.
Ich stehe vor nem kleinen Problem, und zwar:
Ich habe ein Label (L1), welches bei einem Spiel ein Ergebnis anzeigt. Sobald dieses Ergebnis zwischen 2 und 170 liegt, wird in einem weiteren Label (fsp) ein dazu gehörender Text angezeigt. Dies habe ich bislang mit einem VLookup gemacht, wobei ich die Daten in einer Exeltabelle stehen habe.
Nun möchte ich - mehr aus Interesse - versuchen Diese Daten aus einer *.txt-Datei auszulesen und das Ergebnis auch in einem Label (fsp.Value) ausgeben.
Das ganze möchte ich in einem Modul speichern, weil ich öfter während des Spiels darauf zugreife.
Ich bin momentan hier:
Code:
Public Sub Finish_suchen()
Dim ReadFile As String, rcount As Long
Dim Fso As Object, TextDat As Object
ReadFile = Application.GetOpenFilename("finishes.txt")
If ReadFile = "Falsch" Then Exit Sub
Close #1
Set Fso = CreateObject("Scripting.FileSystemObject")
Set TextDat = Fso.OpenTextFile(ReadFile, 1, False)
Do While TextDat.AtEndOfStream <> True
rcount = rcount + 1
varSuchbegriff = TextDat.ReadLine
If varSuchbegriff = True Then
fsp.Value = Text
End If
Loop
TextDat.Close
End Sub
Obigen Code habe ich im Netz gefunden, versucht zu verstehen, und dann versucht auf mein Problem hin anzupassen. Bislang ohne Erfolg.
varSuchbegriff ist eine Public Variabel und enthält immer eine Zahl von 2 - 170.
Die Textdatei ist so aufgebaut:
170;Text zu 170
169;Text zu 169
.
.
.
2;Text zu 2
In dem Label "fsp" möchte ich nur z.B. "Text zu 170" wiedergeben. Da komm ich gerade überhaupt nicht mehr weiter mit meinem "Können"^^.