RE: Extracting keywords from a string

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

I'm not sure what your current code is and what you are attempting to do if
you don't have a key words table. Does the code compile?

--
Duane Hookom
Microsoft Access MVP


"Raines95" wrote:

I removed all the "$" from the code and it is still returning no values. The
code involving "Keywords" was removed at the beginning as I was not using a
Keywords table.

"Duane Hookom" wrote:

I would remove the $ from all string function like:
Right$(strWord, 1)
to
Right(strWord, 1)
This line is also wonky:
If Not IsNull(strWord, "Keywords" Then
I'm not sure what belongs there but it is clearly missing a ).

--
Duane Hookom
Microsoft Access MVP


"Raines95" wrote:

This question was posted a few years ago and I am essentially looking for the
same result. I want to pull out keywords and based upon their frequency and
relevance, identify problem trends. The VBA code provided a few years ago by
Ken Sheridan was this:

''''Module starts''''
Option Compare Database
Option Explicit

Function GetLongWords(ByVal strText As String, intWordLength As Integer) As
String

Dim intSpacePos As Integer
Dim strWord As String, strWordList As String

intSpacePos = 0

' replace any double spaces with single space
strText = Replace(strText, " ", " ")

' loop through text and identify each word,
' assuming a word is terminated by a space or end of string
Do While True
intSpacePos = InStr(strText, " ")
If intSpacePos > 0 Then
strWord = Left$(strText, intSpacePos - 1)
' remove any punctuation form end of word
strWord = TrimWord(strWord)
If Len(strWord) >= intWordLength Then
' following <If> and <End If> only necessary if you want to
' look words up in Keywords table
If Not IsNull(strWord, "Keywords" Then
strWordList = strWordList & ", " & strWord
End If
End If
' trim word off text
strText = Mid$(strText, intSpacePos + 1)
Else
' word must be last in text so
strWord = TrimWord(strText)
If Len(strWord) >= intWordLength Then
' following <If> and <End If> only necessary if you want to
' look words up in Keywords table
If Not IsNull(strWord, "Keywords" Then
strWordList = strWordList & ", " & strWord
End If
End If
Exit Do
End If
Loop
' remove leading comma and space
GetLongWords = Mid$(strWordList, 3)

End Function


Private Function TrimWord(strWord As String) As String

' remove any punctuation characters from word
Do While True
Select Case Right$(strWord, 1)
Case ".", ",", ";", ":", "?", "!"
strWord = Left$(strWord, Len(strWord) - 1)
Case Else
Exit Do
End Select
Loop

TrimWord = strWord

End Function
''''Module ends''''

I am using Access 2007 and when I first used this code, it seemed like it
was stuck in the loop as Access would just sit there forever. Now when I run
it, it returns no values. I have confirmed that there are words meeting the
length I am looking for. Is there something new in Access 2007 that would
require changes to this code?
.

Relevant Pages

  • RE: Extracting keywords from a string
    ... "Duane Hookom" wrote: ... Function GetLongWords(ByVal strText As String, ... Dim intSpacePos As Integer ... Dim strWord As String, strWordList As String ...
    (microsoft.public.access.queries)
  • RE: Extracting keywords from a string
    ... Function GetLongWords(ByVal strText As String, ... Dim intSpacePos As Integer ... Dim strWord As String, strWordList As String ...
    (microsoft.public.access.queries)
  • RE: Extracting keywords from a string
    ... Function GetLongWords(ByVal strText As String, ... Dim intSpacePos As Integer ... Dim strWord As String, strWordList As String ... Keywords table. ...
    (microsoft.public.access.queries)
  • RE: Extracting keywords from a string
    ... Function GetLongWords(ByVal strText As String, ... Dim intSpacePos As Integer ... Dim strWord As String, strWordList As String ... "Duane Hookom" wrote: ...
    (microsoft.public.access.queries)
  • Extracting keywords from a string
    ... Function GetLongWords(ByVal strText As String, ... Dim intSpacePos As Integer ... Dim strWord As String, strWordList As String ... If Not IsNull(strWord, "Keywords" Then ...
    (microsoft.public.access.queries)