home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / korrekt.txt < prev    next >
Text File  |  1995-02-26  |  2KB  |  79 lines
  1.   Dim db As database
  2.   Dim DS_Worte As Dynaset
  3.   Dim DS_Occurs As Dynaset
  4.   Dim tb As table
  5.   Dim tb_Occurs As table
  6.   Dim Wort$
  7.  
  8.   Set db = OpenDatabase("P:\DATEN\CD\NMCDSPY.MDB")
  9.   'Set DS_Worte = db.CreateDynaset("T_Worte")
  10.   Set tb = db.OpenTable("T_Worte")
  11.   tb.Index = "PrimaryKey"  ' Define current index.
  12.   Set tb_Occurs = db.OpenTable("T_Occurs")
  13.   tb_Occurs.Index = "PrimaryKey"
  14.  
  15.   'Set DS_Occurs = db.CreateDynaset("T_Occurs")
  16.  
  17.   ChDrive ("N:")
  18.   MDICDSpy.WindowState = 0
  19.   For I% = 1 To UBound(GM_DBAll)
  20.     ChDir (GM_DBAll(I%).Verzeichnis)
  21.    ' Debug.Print CurDir
  22.     If FM_Exists("WORTE.YZX") Then
  23.       fh% = FreeFile
  24.       Open "WORTE.YZX" For Input As fh%
  25.       'Debug.Print "BeginTrans : "; Timer
  26.       db.BeginTrans
  27.       'Debug.Print "Scanstart : "; Timer
  28.       Do While Not EOF(fh%)
  29.         Line Input #fh%, zeile$
  30.         pos% = InStr(zeile$, ",")
  31.         Wort$ = Left$(zeile$, pos% - 1)
  32.         tb.Seek "=", Wort$
  33.         If tb.NoMatch Then
  34.           tb.AddNew
  35.           tb!Wort = Wort$
  36.           tb.Update
  37.           tb.Seek "=", Wort$
  38.         End If
  39.         tb_Occurs.Seek "=", I%, tb!ID
  40.         If tb_Occurs.NoMatch Then
  41.           tb_Occurs.AddNew
  42.           tb_Occurs!ID = I%
  43.           tb_Occurs!ID_Wort = tb!ID
  44.           tb_Occurs.Update
  45.         End If
  46.         'DS_Worte.AddNew
  47.         'DS_Worte!Wort = Left$(zeile$, pos% - 1)
  48.         'On Error Resume Next
  49.         'DS_Worte.Update
  50.         'If Err <> 0 Then ' Wort bereits vorhanden
  51.         '  On Error GoTo 0
  52.         '  tb.Seek "=", Left$(zeile$, pos% - 1)
  53.         '  DS_Occurs.AddNew
  54.         '  DS_Occurs!ID = I%
  55.         '  DS_Occurs!ID_Wort = tb!ID
  56.     '   '   DS_Worte.FindFirst "Wort = '" & Left$(zeile$, pos% - 1) & "'"
  57.         'Else
  58.         '  On Error GoTo 0
  59.         '  DS_Worte.MoveLast
  60.         '  DS_Occurs.AddNew
  61.         '  DS_Occurs!ID = I%
  62.         '  DS_Occurs!ID_Wort = DS_Worte!ID
  63.         'End If
  64.         'DS_Occurs!filename = Mid$(zeile$, pos% + 1)
  65.         'On Error Resume Next
  66.         'DS_Occurs.Update
  67.         'Err = 0
  68.         'On Error GoTo 0
  69.       Loop
  70.       db.CommitTrans
  71.       Close fh%
  72.       Temp$ = Dir$
  73.     End If
  74.   Next I%
  75.   'DS_Occurs.Close
  76.   'DS_Worte.Close
  77.    tb.Close
  78.    tb_Occurs.Close
  79.