Skip to main content

AccessTr.neT


Kelime Tekrar Tespiti

access acemisi
access acemisi
13
3167

Kelime Tekrar Tespiti

#13
(23/03/2019, 12:02)haliliyas yazdı: Şu anda kullandığınız uygulamada indeks oluşturmak için bu kod mu kullaniliyor

Private Sub BtnEndxSay_Click()
Dim KelimeSay As New ADODB.Recordset
Dim TxtIndex, TxtIndex2, SqlKelime, txtKelimeSay, saygec As String
Dim IndexDizi() As String
TxtIndex = ""
TxtIndex2 = ""
SqlKelime = "SELECT [anahtar_kelime]  FROM vaaz ;"

KelimeSay.Open SqlKelime, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If KelimeSay.RecordCount <= 0 Then GoTo 10
    KelimeSay.MoveLast
    KelimeSay.MoveFirst
        Do Until KelimeSay.EOF
             TxtIndex = TxtIndex & KelimeSay.Fields(0) & " "
             KelimeSay.MoveNext
        Loop

IndexDizi = Split(Trim(TxtIndex))
TxtIndex = " " & IndexDizi(0) & " "
TxtIndex2 = " " & IndexDizi(0) & " "
    For X = LBound(IndexDizi) + 1 To UBound(IndexDizi)
        
        TxtIndex = IIf(InStr(TxtIndex, " " & IndexDizi(X) & " ") = 0, TxtIndex & IndexDizi(X) & " ", TxtIndex)
        TxtIndex2 = TxtIndex2 & IndexDizi(X) & " "
    Next

    IndexDizi = Split(Trim(TxtIndex))
    '________Sırala__________________
     For X = LBound(IndexDizi) To UBound(IndexDizi)
    For y = X To UBound(IndexDizi)
      If UCase(IndexDizi(y)) < UCase(IndexDizi(X)) Then
        TempTxt1 = IndexDizi(X)
        TempTxt2 = IndexDizi(y)
        IndexDizi(X) = TempTxt2
        IndexDizi(y) = TempTxt1
      End If
     Next y
  Next X
  '___________sırala son
    
    CurrentDb.Execute " DELETE * FROM [TblEndx];"
    For X = LBound(IndexDizi) To UBound(IndexDizi)
    saygec = Trim(TxtIndex2)
    txtKelimeSay = UBound(Split(saygec, IndexDizi(X)))
   
    CurrentDb.Execute " INSERT INTO [TblEndx]([EndxKelime], [EndxSay])" & _
                         " VALUES (' " & IndexDizi(X) & "', '" & txtKelimeSay & "');"

    Next
10
KelimeSay.Close
Set KelimeSay = Nothing
DoCmd.OpenQuery "sorgu"
End Sub
Cevapla
#14
Bu kodda sorun görünmüyor sadece anahtar alanda arama yapiyor
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task