Datum aus Textdatei auslesen

[BIG_Muzzy]

HI

ich hab gesehen das es schon einen ganzen haufen erkärungen zu dem thema gibt aber ich bekomm das einfach nicht hin, und für euch ist das 1 min Arbeit

ich habe eine text datei in der eine Reihe von dataten stehen steht:

10:5:2004
9:10:2001
usw...

ich möchte nun tage monate und jahre getrennt auslesen und den variablen tag, mon, jahr zuweisen, danch arbeitet mein prog mit diesen daten und soll sich die nächste zeile einlesen.

wie man oben sieht sind die tage/monate auch nur 1 stellig möglich also 9 und nicht 09 und nur durch : getrennt

vielen dank für eure Hilfe


mfg

BIG_Muzzy

 

[wincnc]

Hallo, hier ein kleines Beispiel:

Private Sub Command1_Click()
Dim Nr As Integer
Dim Zeile As String
Dim Getrennt() As String
Dim Tag As String
Dim Monat As String
Dim Jahr As String

Nr = FreeFile

Open "D:\Test.txt" For Input As #Nr
  While Not EOF(Nr)
    Line Input #Nr, Zeile
    Getrennt = Split(Zeile, ":")
    Tag = Getrennt(0)
    Monat = Getrennt(1)
    Jahr = Getrennt(2)
    
    ' Deine Vertarbeitung
    
  Wend
Close #Nr

 

[BIG_Muzzy]

vielen dank für deine hilfe
hatt gut funktioniert

mfg

BIG_Muzzy