The word
franc appears in
franchise,
dinar in or
dinary and
dime in
dimension.
Compile a list of common Englsh words with currency names embedded in them.
Of course the monetary word itself is a word, sometimes with a different meaning, such as when you mark a ballot, or have a yen for greek food. The program doesn't print out the internal word itself as a found word.
accented cent
accenting cent
accentuate cent
accentuated cent
accentuates cent
accentuating cent
adolescent cent
adolescent's cent
adolescents cent
ascent cent
ascent's cent
ascents cent
besought sou
bicentennial cent
bicentennial's cent
bicentennials cent
birthmark mark
birthmark's mark
birthmarks mark
bookmark mark
bookmark's mark
bookmarked mark
bookmarking mark
bookmarks mark
cent's cent
centennial cent
centennial's cent
centennials cent
centipede cent
centipede's cent
centipedes cent
central's cent
centrals cent
centrifuge cent
cents cent
compound's pound
compounded pound
compounding pound
compounds pound
concentrate's cent
concentration's cent
concentrations cent
concentric cent
condiment dime
condiment's dime
condiments dime
convalescent cent
convalescent's cent
convalescents cent
crescent cent
crescent's cent
crescents cent
decently cent
descent cent
descent's cent
descents cent
dime's dime
dimer dime
dimes dime
disincentive cent
earmark mark
earmark's mark
earmarked mark
earmarking mark
earmarks mark
eccentric's cent
eccentricities cent
eccentricity cent
eccentricity's cent
eccentrics cent
effervescent cent
egocentric cent
embodiment dime
embodiment's dime
expound pound
expounded pound
expounding pound
expounds pound
fluorescent cent
franc's franc
franchise franc
franchise's franc
franchised franc
franchises franc
franchising franc
francs franc
hallmark mark
hallmark's mark
hallmarked mark
hallmarking mark
hallmarks mark
hyena yen
hyena's yen
hyenas yen
impediment dime
impediment's dime
impediments dime
impound pound
impounded pound
impounding pound
impounds pound
incandescent cent
incentive's cent
incentives cent
indecent cent
innocent's cent
innocently cent
innocents cent
iridescent cent
landmark mark
landmark's mark
landmarks mark
markedly mark
marketable mark
marketplace mark
marketplace's mark
marketplaces mark
marking's mark
markings mark
marksman mark
marksman's mark
marksmen mark
nickel's nickel
nickels nickel
obsolescent cent
ordinaries dinar
ordinarily dinar
ordinary's dinar
percentage's cent
percentages cent
phosphorescent cent
placenta cent
placenta's cent
placentas cent
pockmark mark
pockmark's mark
pockmarked mark
pockmarking mark
pockmarks mark
postmark mark
postmark's mark
postmarked mark
postmarking mark
postmarks mark
pounded pound
pounding pound
pumpernickel nickel
pumpernickel's nickel
recenter cent
recentest cent
resound sou
resounded sou
resounding sou
resounds sou
resourceful sou
resourcefulness sou
resourcefulness's sou
reticent cent
rudimentary dime
scent cent
scent's cent
scented cent
scenting cent
scents cent
sediment dime
sediment's dime
sedimentary dime
sediments dime
sixpence pence
sixpence's pence
sixpences pence
soufflé sou
soufflé's sou
soufflés sou
sounder sou
soundest sou
soundly sou
soundproof sou
soundproofed sou
soundproofing sou
soundproofs sou
soup's sou
souped sou
souping sou
soups sou
sour sou
sour's sou
sourced sou
sourcing sou
soured sou
sourer sou
sourest sou
souring sou
sours sou
south's sou
southeast sou
southeast's sou
southeastern sou
southerlies sou
southerly sou
southerly's sou
southern's sou
southerner sou
southerner's sou
southerners sou
southerns sou
southpaw sou
southpaw's sou
southpaws sou
southward sou
southward's sou
southwest sou
southwest's sou
southwestern sou
souvenir sou
souvenir's sou
souvenirs sou
supermarket's mark
supermarkets mark
trademark mark
trademark's mark
trademarked mark
trademarking mark
trademarks mark
translucent cent
troubled rouble
troublemaker rouble
troublemaker's rouble
troublemakers rouble
troublesome rouble
unmarked mark
unremarkable mark
unsounder sou
unsoundest sou
watermark mark
watermark's mark
watermarked mark
watermarking mark
watermarks mark
yen's yen
yens yen
DefDbl A-Z
Dim crlf$, wd$(21)
My shortest word list was used, so as to minimize uncommon words.
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
wd(1) = "franc"
wd(2) = "dinar"
wd(3) = "peso"
wd(4) = "peseta"
wd(5) = "centime"
wd(6) = "mark"
wd(7) = "drachma"
wd(8) = "ruble"
wd(9) = "rouble"
wd(10) = "pound"
wd(11) = "pence"
wd(12) = "cent"
wd(13) = "dime"
wd(14) = "nickel"
wd(15) = "sou"
wd(16) = "lira"
wd(17) = "dollar"
wd(18) = "penny"
wd(19) = "yuan"
wd(20) = "yen"
wd(21) = "shilling"
wd(22) = "euro"
Open "w:36kwords.txt" For Input As #1
Do
Line Input #1, l$
l = LTrim(RTrim(l))
For i = 1 To 21
If InStr(l$, wd(i)) > 0 And l$ <> wd(i) Then
Text1.Text = Text1.Text & Left(l$ + " ", 20) & wd(i) & crlf
DoEvents
End If
Next
Loop Until EOF(1)
Close
Text1.Text = Text1.Text & crlf & crlf
End Sub
|
|
Posted by Charlie
on 2015-03-24 15:28:03 |
a computer list
