home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
cdspy
/
korrekt.txt
< prev
next >
Wrap
Text File
|
1995-02-26
|
2KB
|
79 lines
Dim db As database
Dim DS_Worte As Dynaset
Dim DS_Occurs As Dynaset
Dim tb As table
Dim tb_Occurs As table
Dim Wort$
Set db = OpenDatabase("P:\DATEN\CD\NMCDSPY.MDB")
'Set DS_Worte = db.CreateDynaset("T_Worte")
Set tb = db.OpenTable("T_Worte")
tb.Index = "PrimaryKey" ' Define current index.
Set tb_Occurs = db.OpenTable("T_Occurs")
tb_Occurs.Index = "PrimaryKey"
'Set DS_Occurs = db.CreateDynaset("T_Occurs")
ChDrive ("N:")
MDICDSpy.WindowState = 0
For I% = 1 To UBound(GM_DBAll)
ChDir (GM_DBAll(I%).Verzeichnis)
' Debug.Print CurDir
If FM_Exists("WORTE.YZX") Then
fh% = FreeFile
Open "WORTE.YZX" For Input As fh%
'Debug.Print "BeginTrans : "; Timer
db.BeginTrans
'Debug.Print "Scanstart : "; Timer
Do While Not EOF(fh%)
Line Input #fh%, zeile$
pos% = InStr(zeile$, ",")
Wort$ = Left$(zeile$, pos% - 1)
tb.Seek "=", Wort$
If tb.NoMatch Then
tb.AddNew
tb!Wort = Wort$
tb.Update
tb.Seek "=", Wort$
End If
tb_Occurs.Seek "=", I%, tb!ID
If tb_Occurs.NoMatch Then
tb_Occurs.AddNew
tb_Occurs!ID = I%
tb_Occurs!ID_Wort = tb!ID
tb_Occurs.Update
End If
'DS_Worte.AddNew
'DS_Worte!Wort = Left$(zeile$, pos% - 1)
'On Error Resume Next
'DS_Worte.Update
'If Err <> 0 Then ' Wort bereits vorhanden
' On Error GoTo 0
' tb.Seek "=", Left$(zeile$, pos% - 1)
' DS_Occurs.AddNew
' DS_Occurs!ID = I%
' DS_Occurs!ID_Wort = tb!ID
' ' DS_Worte.FindFirst "Wort = '" & Left$(zeile$, pos% - 1) & "'"
'Else
' On Error GoTo 0
' DS_Worte.MoveLast
' DS_Occurs.AddNew
' DS_Occurs!ID = I%
' DS_Occurs!ID_Wort = DS_Worte!ID
'End If
'DS_Occurs!filename = Mid$(zeile$, pos% + 1)
'On Error Resume Next
'DS_Occurs.Update
'Err = 0
'On Error GoTo 0
Loop
db.CommitTrans
Close fh%
Temp$ = Dir$
End If
Next I%
'DS_Occurs.Close
'DS_Worte.Close
tb.Close
tb_Occurs.Close