Kelime Tekrar Tespiti - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Kelime Tekrar Tespiti (/konu-kelime-tekrar-tespiti.html) |
Cvp: Kelime Tekrar Tespiti - access acemisi - 23/03/2019 (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 Cvp: Kelime Tekrar Tespiti - berduş - 23/03/2019 Bu kodda sorun görünmüyor sadece anahtar alanda arama yapiyor |