Searching Text

[js]

HI,
Is there anyway of searching text, putting all of the like words
together, then giving you a count of the number of times that word
appears in Access?
Thanks, David

 

[Chris Nebinger]

What do you mean the like words?

If I want to find how many times "Nebinger" occurs in a
text field:

DCount("TextField","Table","TextField Like '*Nebinger*'")

would work.

Chris Nebinger

 

[rkc]

HI,
Is there anyway of searching text, putting all of the like words
together, then giving you a count of the number of times that word
appears in Access?
Thanks, David

Yes.

 

[js]

Thank you for responding. How is this done? Thank you.
David

 

[js]

Exactly, except I need it to search on its own without telling it what
the words are.
David

 

[John Nurick]

Hi David,

This can be done, but Access and VBA don't have good tools for doing it:
the code has to read the text, split it into words without being
confused by quote marks, punctuation, etc, and then work through them
keeping count of each.

When I need to do this I export the data to a textfile and use this Perl
script to get the counts (Perl is free from www.activetate.com) :

#BEGIN
#take text input, parse into words, return list of words with number of
occurrences

use Text:arseWords; #module with parse_line function

my $ignorecase = 1; #change this to 0 to be case sensitive

while (<>) { #read lines from STDIN or file(s) on command line
chomp;
@line = parse_line(qr/\W+/, 0, $_); #parse into words
if ($ignorecase) { map {$_ = ucfirst $_} @line }; #adjust case
foreach $word (@line) { $words{$word}++ }; #store count of words
}

foreach $word (sort keys %words) { #output sorted list of words
print "$word\t$words{$word}\n";
}
#END


If you need to do it entirely within Access, search Google for
"count words" vb OR vba
and you'll probably find some downloadable Visual Basic code that you
can modify to work in your database.

 

[js]

John,
Great!!! Thank You.
David

Hi David,

This can be done, but Access and VBA don't have good tools for doing it:
the code has to read the text, split it into words without being
confused by quote marks, punctuation, etc, and then work through them
keeping count of each.

When I need to do this I export the data to a textfile and use this Perl
script to get the counts (Perl is free from www.activetate.com) :

#BEGIN
#take text input, parse into words, return list of words with number of
occurrences

use Text:arseWords; #module with parse_line function

my $ignorecase = 1; #change this to 0 to be case sensitive

while (<>) { #read lines from STDIN or file(s) on command line
chomp;
@line = parse_line(qr/\W+/, 0, $_); #parse into words
if ($ignorecase) { map {$_ = ucfirst $_} @line }; #adjust case
foreach $word (@line) { $words{$word}++ }; #store count of words
}

foreach $word (sort keys %words) { #output sorted list of words
print "$word\t$words{$word}\n";
}
#END


If you need to do it entirely within Access, search Google for
"count words" vb OR vba
and you'll probably find some downloadable Visual Basic code that you
can modify to work in your database.

 

[rkc]

Thank you for responding. How is this done? Thank you.

Well, I don't really know exactly what you want to do, but here's
something I put together as an example of what can be done using
VBA.

http://www8.brinkster.com/rkc/CountWords.html