Laden von *.dat-Dateien

Computer: Software & Programmierung Visual Basic
#1

Hallo

ich Programmiere mit Visual Basic 6.0 a

ich Programmiere gerade ein Programm wo ich Daten, also Zahlen in eine Datei schreibe z.B datei1.dat, das Poblem ist ich weiß nicht wie ich das anstellen soll.
Ich habe eine Lösung, die auch geht, aber die mir nicht gefällt, wenn man daraus eine exe macht und die Datei dann verschiebt in einen anderen Ordner.
Meine lösung lautet:

Option Explicit
Private Type Kartetype
Name As String * 10
End Type
Dim Karte As Kartetype
Dim SatzNr As Integer
’ Der Pfad muß jeweils angepasst werden
Const Pfad = „C:\Dokumente und Einstellungen\GroßerBrude r\Desktop\project1Daten1. dat“

und so weiter

und hier liegt das Problem der „Const Pfad“, verschiebe ich mein Programm z.b. von CD auf HDD ändert sich der Pfad doch ich kann ihn nicht mehr ändern. Wie muss ich das schreiben.

Vielen Dank im Vorraus
Martin

#2

Hallo

Hi,
wenn die .dat-Datei immer im gleichen releativen Verzeichnis zur .exe-Datei liegt, benutz doch App.Path , also z.B.
Open App.Pah & „\datei1.dat“ for Input as #1 , wenn sie im gleichen Verzeichnis liegt, oder Open App.Path & „\config\datei1.dat“ for Input as #1 , wenn sie im Unterverzeichnis \config liegt.

Gruß.Timo

ich Programmiere mit Visual Basic 6.0 a

ich Programmiere gerade ein Programm wo ich Daten, also Zahlen
in eine Datei schreibe z.B datei1.dat, das Poblem ist ich weiß
nicht wie ich das anstellen soll.
Ich habe eine Lösung, die auch geht, aber die mir nicht
gefällt, wenn man daraus eine exe macht und die Datei dann
verschiebt in einen anderen Ordner.
Meine lösung lautet:

Option Explicit
Private Type Kartetype
Name As String * 10
End Type
Dim Karte As Kartetype
Dim SatzNr As Integer
’ Der Pfad muß jeweils angepasst werden
Const Pfad = „C:\Dokumente und Einstellungen\GroßerBrude
r\Desktop\project1Daten1. dat“

und so weiter

und hier liegt das Problem der „Const Pfad“, verschiebe ich
mein Programm z.b. von CD auf HDD ändert sich der Pfad doch
ich kann ihn nicht mehr ändern. Wie muss ich das schreiben.

Vielen Dank im Vorraus
Martin

#3

Hallo,

ich Programmiere mit Visual Basic 6.0

ich Programmiere gerade ein Programm wo ich Daten, also Zahlen
in eine Datei schreibe z.B datei1.dat, das Poblem ist ich weiß
nicht wie ich das anstellen soll.
Ich habe eine Lösung, die auch geht, aber die mir nicht
gefällt, wenn man daraus eine exe macht und die Datei dann
verschiebt in einen anderen Ordner.

Wenn Du die daten unter form load in einem ordner (c…ordner…datei.dat) schreibst … und unter diesem Pfad dann die dateien wieder ausliest???

bzw. abfrägst
If Not Dir$(„Test.Datei“) vbNullString Then 'wenn cd pfad
…
else
c…ordner…datei.dat
end if

Meine lösung lautet:

Option Explicit
Private Type Kartetype
Name As String * 10
End Type
Dim Karte As Kartetype
Dim SatzNr As Integer
’ Der Pfad muß jeweils angepasst werden
Const Pfad = „C:\Dokumente und Einstellungen\GroßerBrude
r\Desktop\project1Daten1. dat“

und so weiter

und hier liegt das Problem der „Const Pfad“, verschiebe ich
mein Programm z.b. von CD auf HDD ändert sich der Pfad doch
ich kann ihn nicht mehr ändern. Wie muss ich das schreiben.

Vielen Dank im Vorraus
Martin

#4

Hallo

Okay und das (Open App.Pah & "\datei1.dat) kommt in Option Explicit?
Und wie lade und speichere ich in diesem Fall?
Die Info die ich speichern will kommt aus einem Text1.text.
Und soll dann zu einem bestimmten zeitpunkt wieder in das gleich text feld geladen werden
was bedeutet **? Ist das wie die Datei heißt?

wenn die .dat-Datei immer im gleichen releativen Verzeichnis
zur .exe-Datei liegt, benutz doch App.Path, also z.B.
Open App.Pah & „\datei1.dat“ for Input as #1, wenn sie
im gleichen Verzeichnis liegt, oder Open App.Path &
„\config\datei1.dat“ for Input as #1, wenn sie im
Unterverzeichnis \config liegt.

Gruß.Timo**

#5

Verstehe KEIN Wort
Hi,
wenn du willst, dass man dir hilft, formuliere deine Fragen noch einmal neu.
Deutlich.
Gruß.Timo

#6

Hi,

den Pfad legst du am besten im main-Modul (.bas) fest. Z.B.

Option Explicit
Public Pfad as String

Sub Main()
'Anweisungen
Pfad = App.Path & IIf(Right(App.Path, 1) = „“, „“, „“)
End Sub

Jetzt kannst du wo du willst deine Dateien öffnen und schließen. Ich habe hier mal ein Bsp. aus einem meiner Programme: z.B. im Formular (Spielerdaten.frm)

Public Function Spielerdaten_Einlesen()
Dim intCtr As Integer
Dim intFNum As Integer ’ Dateinummer
Dim Daten(12) As String 'Datensatz für einen Spieler
Dim Datenzahl As Integer
Dim i%, j%

intFNum = FreeFile
Open Pfad & „\Spielerdaten.dat“ For Input As #intFNum

Input #intFNum, intCtr
Mitgliederanzahl = intCtr
ReDim Spieler(Mitgliederanzahl)
For i = 1 To Mitgliederanzahl
For j = 0 To 11
Input #intFNum, Daten(j)
Next j
Input #intFNum, Datenzahl
Input #intFNum, Daten(12)
With Spieler(i)
.Nachname = Daten(0)
.Vorname = Daten(1)
.Anrede = Daten(2)
.Status = Daten(3)
.Punkte = Daten(4)
.PLZ = Daten(5)
.Wohnort = Daten(6)
.Titel = Daten(7)
.Bemerkung = Daten(8)
.Telefon = Daten(9)
.Handy = Daten(10)
.Strasse = Daten(11)
.Laufendenummer = Datenzahl
.Clubpunkte = Daten(12)
End With
Next i
Close #intFNum
End Function

Das sollte dir weiterhelfen. Am besten kopierst du das so bei dir rein und änderst die Variablen ab, dann klappts…