Thursday, June 13, 2019
Generating a List of Unique Words
Two great and useful macros here:
Number one
Number 2
Number one
Sub UniqueWordList()
Dim wList As New Collection
Dim wrd
Dim chkwrd
Dim sTemp As String
Dim k As Long
For Each wrd In ActiveDocument.Range.Words
sTemp = Trim(LCase(wrd))
If sTemp >= "a" And sTemp <= "z" Then k = 0 For Each chkwrd In wList k = k + 1 If chkwrd = sTemp Then GoTo nw If chkwrd > sTemp Then
wList.Add Item:=sTemp, Before:=k
GoTo nw
End If
Next chkwrd
wList.Add Item:=sTemp
End If
nw:
Next wrd
sTemp = "There are " & ActiveDocument.Range.Words.Count & " words "
sTemp = sTemp & "in the document, before this summary, but there "
sTemp = sTemp & "are only " & wList.Count & " unique words."
ActiveDocument.Range.Select
Selection.Collapse Direction:=wdCollapseEnd
Selection.TypeText vbCrLf & sTemp & vbCrLf
For Each chkwrd In wList
Selection.TypeText chkwrd & vbCrLf
Next chkwrd
End Sub
Number 2
From Ken Endacott on 2016-10-15 07:40:30 - Depending on the vocabulary of the author, large documents can have over 5000 unique words. The above macro displays one word per line which means that the list will occupy around 100 pages. The macro below will write the list of words into a new document with five columns per page.
Sub UniqueWordList()
Dim wList As New Collection
Dim wrd
Dim chkwrd
Dim sTemp As String
Dim k As Long
For Each wrd In ActiveDocument.Range.words
sTemp = Trim(LCase(wrd))
If sTemp >= "a" And sTemp <= "z" Then k = 0 For Each chkwrd In wList k = k + 1 If chkwrd = sTemp Then GoTo nw If chkwrd > sTemp Then
wList.Add Item:=sTemp, Before:=k
GoTo nw
End If
Next chkwrd
wList.Add Item:=sTemp
End If
nw:
Next wrd
sTemp = "There are " & ActiveDocument.Range.words.Count & " words " & _
"in " & ActiveDocument.Name & ", but there "
Documents.Add
With ActiveDocument.Styles("Normal")
With .ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
End With
.NextParagraphStyle = "Normal"
.NoSpaceBetweenParagraphsOfSameStyle = False
.Font.Name = "Times New Roman"
.Font.Size = 10
End With
sTemp = sTemp & "are only " & wList.Count & " unique words."
Selection.TypeText vbCrLf & sTemp & vbCrLf & vbCrLf
Selection.InsertBreak Type:=wdSectionBreakContinuous
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=5
.EvenlySpaced = True
.LineBetween = True
.Width = CentimetersToPoints(2.8)
.Spacing = CentimetersToPoints(0.4)
End With
For Each chkwrd In wList
Selection.TypeText chkwrd & vbCrLf
Next chkwrd
End Sub
If you want to know how often a word appears then the macro UniqueWordCount will list unique words and give a count of how many times each word appears in the document.
Sub UniqueWordCount()
Dim wList As New Collection
Dim wCount As New Collection
Dim wrd
Dim chkwrd
Dim sTemp As String
Dim k As Long
Dim j As Long
For Each wrd In ActiveDocument.Range.words
sTemp = Trim(LCase(wrd))
If sTemp >= "a" And sTemp <= "z" Then k = 0 For Each chkwrd In wList k = k + 1 If chkwrd = sTemp Then j = wCount(k) + 1 wCount.Remove (k) If k > wCount.Count Or wCount.Count = 1 Then
wCount.Add Item:=j
Else
wCount.Add Item:=j, Before:=k
End If
GoTo nw
End If
If chkwrd > sTemp Then
wList.Add Item:=sTemp, Before:=k
wCount.Add Item:=1, Before:=k
GoTo nw
End If
Next chkwrd
wList.Add Item:=sTemp
wCount.Add Item:=1
End If
nw:
Next wrd
sTemp = "There are " & ActiveDocument.Range.words.Count & " words " & _
"in " & ActiveDocument.Name & ", but there "
Documents.Add
With ActiveDocument.Styles("Normal")
With .ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
End With
.NextParagraphStyle = "Normal"
.NoSpaceBetweenParagraphsOfSameStyle = False
.Font.Name = "Times New Roman"
.Font.Size = 10
End With
sTemp = sTemp & "are only " & wList.Count & " unique words."
Selection.TypeText vbCrLf & sTemp & vbCrLf & vbCrLf
Selection.InsertBreak Type:=wdSectionBreakContinuous
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=5
.EvenlySpaced = True
.LineBetween = True
.Width = CentimetersToPoints(2.8)
.Spacing = CentimetersToPoints(0.4)
End With
For k = 1 To wList.Count
Selection.TypeText wList(k) & "(" & wCount(k) & ")" & vbCrLf
Next k
End Sub
Good Advice
The author of this article - Why You Shouldn’t Love Your Kids More Than Your Partner - also wrote a book.
Digital Hoarder
Yes, it's true: I am a digital hoarder. This is the status of my personal email account:
I convert emails I have received to a PDF file and then I delete the original emails. In the past, I would convert emails I have received to a TXT file, but I like the formatting of a PDF better.
Your mailbox is almost full.
I convert emails I have received to a PDF file and then I delete the original emails. In the past, I would convert emails I have received to a TXT file, but I like the formatting of a PDF better.
A Day in the Life of Hawkeye Connor McCaffery
I looked up the definition of "Hell on Earth" and found Connor McCaffery's classes from last semester listed:
which included this information:
- Managerial Accounting
- I think Alex is taking this class or took this class - it sounds familiar to me.
- Introduction to Law
- Introductory Financial Management
- Arts of Africa
which included this information:
A Day in the Life of Hawkeye Connor McCaffery
9:45 a.m.
McCaffery, a business major, heads to the Pappajohn Business Building for a managerial accounting class.Noon
Unable to attend the basketball team's organized spring practices due to baseball, he hits the Carver-Hawkeye Arena gym on his own to improve his jump shot.2 p.m.
McCaffery heads across the street to Duane Banks Field for baseball practice.6 p.m.
After cleaning up from both workouts, he grabs dinner and dives into homework for his Introduction to Law, Introductory Financial Management, and Arts of Africa classes.8:30 p.m.
McCaffery catches his favorite baseball team, the Philadelphia Phillies, in action.10:30 p.m.
With homework done, he relaxes by playing his favorite video games—Fortnite, Call of Duty, and FIFA—with friends.12:30 a.m.
Lights out.SMB in DM
For the record, I REALLY wanted to purchase these 4 tickets for tonight's Steve Miller Band concert in Des Moines.
Wednesday, June 12, 2019
Powerful Testimony about Shinedown
I've likely included this video elsewhere, but I'm embedding it again due to the fact that it provides context for a powerful testimony about Shinedown and, at a much broader level, about how powerful music can be in someone's life. So, here's the video:
And here's the very moving testimony, verbatim, from the comments of the above video, from ooKILLFASToo:
Setlist:
00:00 Intro
00:38 Sound of Madness
04:40 Diamond Eys [Boom-Lay Boom-Lay Boom]
12:10 Cut the Cord
16:40 I'll Follow You
21:15 Bully
26:25 GET UP
35:52 Enemies
39:50 Unity
46:00 State Of My Head
50:10 Second Chance
55:53 Simple Man
1:06:25 DEVIL
And here's the very moving testimony, verbatim, from the comments of the above video, from ooKILLFASToo:
I am a soldier in the United States Army and I found myself struggling with depression and some other personal issues. I was granted permission by my command team that I could go home on leave this Christmas, 2018. I had some struggles while I was there and the day I was leaving my uncle told Alexa to play Shinedown radio. I will never forget those words. This song came on after a few songs before it had played. When I heard this song I instantly feel in love with it. This songs is what I need everyday in my life. People don't need therapists and groups for help. They need someone to give them a nudge and let them know that they can do it. Life is hard, the best year of my life was when I moved to Massachusetts to live with my Aunt and Uncle and finish out my last year of high school. I ended up running cross country and never ran before. I actually found out that I was really good at it. When I graduated I did not know how much I loved it until the thoughts a creped in. I love my old team but when I got to that low point heard this song it motivated me. I am now going to start working on my degree in history and I am going to go to teach for a high school AP history class after my last 4 year contract which is this one, I will also be try to become a cross country coach. This song helped me and I praise the band for it.
Setlist:
00:00 Intro
00:38 Sound of Madness
04:40 Diamond Eys [Boom-Lay Boom-Lay Boom]
12:10 Cut the Cord
16:40 I'll Follow You
21:15 Bully
26:25 GET UP
35:52 Enemies
39:50 Unity
46:00 State Of My Head
50:10 Second Chance
55:53 Simple Man
1:06:25 DEVIL
Tuesday, June 11, 2019
Love the Picture
Sure, go to https://www.thoughtfortoday.org.uk/react-positively/ to see the words, but to see the graphic associated with the words, look below:
So often, it feels like there needs to be a hand to stop the dominoes in the things that happen. I know that if I can do that - stopping the flow of one thing falling into another - I am happier.
Stop the flow!
So often, it feels like there needs to be a hand to stop the dominoes in the things that happen. I know that if I can do that - stopping the flow of one thing falling into another - I am happier.
Monday, June 10, 2019
Sunday, June 9, 2019
Wish I was There
https://www.irishmirror.ie/whats-on/music-nightlife-news/metallica-slane-castle-ireland-2019-16485969
Sick of BL? Me 2!
Like, seriously, I am done with Brock Lesnar. The guy doesn't talk much and when he needs to get a storyline across, his advocate Paul Heyman does a great job. The problem is that with BL, I don't care about him. And that's a problem. I care about anyone else who is fighting BL. I think that BL needs to deliver a promo with his own voice.
Jamez - Not Sure About the Ending -- Me - Sure About the Ending!
It's noteworthy to state I love the way Metallica has fun on stage. For example, skip to https://youtu.be/_nRhlkH8evU?t=200 to see what I saw a couple of years ago. Even after the way the tune ends, Lars does his usual hand gesture / fist pump action at the end.
Editor's Note: Today is the 2 year anniversary of seeing Metallica in Newton, IA, with Alex on a hot June afternoon.
Editor's Note: Today is the 2 year anniversary of seeing Metallica in Newton, IA, with Alex on a hot June afternoon.
Saturday, June 8, 2019
Friday, June 7, 2019
Coming to Gabes on Sep 5
Old Salt Union has
announced their newest album Where The Dogs Don’t Bite - Out
everywhere on Aug 16 via Compass Records. The band once again
enlisted GRAMMY-winning banjoist and Compass co-founder Alison Brown to produce
the follow-up to their self-titled Compass Records debut. The resulting album, Where
the Dogs Don’t Bite, builds on Old Salt Union’s mixed musical backgrounds
for a wildly entertaining and eclectic batch of songs.
Old Salt Union will be touring extensively throughout the rest of
the year. The band is set to play several notable festivals this summer
including Blue Ox Music Festival, Floyd Fest, and Roots N Blues N BBQ. The
band will also be joining Son Volt on tour for select dates in June.
All up to date tour info can be found at oldsaltunion.com
TOUR DATES
6/7 @ The Mishawaka | Bellvue, CO^
6/8-6/9 @ Pagosa Folk ‘N Bluegrass Festival |
Pagosa Springs, CO
6/13-15 @ Blue Ox Music Festival | Eau
Claire, WI
6/18 @ The Jones Assembly | Oklahoma City, OK*
6/19 @ Historic Scoot Inn | Austin, TX*
6/20 @ The Kessler Theater | Dallas, TX*
6/21 @ The Heights Theater | Houston, TX*
6/22 @ Red Stick Social | Baton Rouge, LA
6/23 @ Saturn | Birmingham, AL*
6/25 @ Variety Playhouse | Atlanta, GA*
6/26 @ Lafayette’s Music Room | Memphis, TN*
6/27 @ The Basement East | Nashville, TN*
6/28 @ Red, White & Boom | London, KY
6/29 @ Smoky Run Music Festival | Butler, OH
7/11 @ Pickin’ On Picknic | Saint Francisville,
MO
7/12 @ Byrd’s Creek Music Festival | Crossville,
TN
7/13 @ Barage Concert Series House Concert |
Chattanooga, TN
7/19 @ Camp Euforia | Lone Tree, IA
7/20-7/21 @ Hiawatha Music Festival | Hiawatha,
MI
7/25 -7/26 @ Floyd Fest | Floyd, VA
7/27 @ Capital Ale House Richmond | Richmond, VA
7/28 @ Purple Fiddle | Thomas, WB
7/30 @ John F. Kennedy Center For The Performing
Arts | Washington, DC
8/3 @ Levitt Pavilion SteelStacks | Bethlehem,
PA
8/9 @ Basin Spring Park | Eureka Springs, AR
8/10 @ Lovegrass Music Festival | Sylvan Grove,
KS
8/20 @ Tuesday in the Garden | Rockford, IL
8/22 @ Alive After Five | Mankato, MN
8/23 @ Bend In The Road | Manchester, MN
8/24 @ Riverside Park | La Crosse, WI
9/4 @ The Bend Concert Series at Murphy Park |
East Moline, IL
9/5 @ Gabe’s | Iowa City, IA
9/7 @ Hey Nonny | Arlington Heights, IL
9/8 @ Black Swamp Arts Festival | Bowling Green,
OH
9/19-9/21 @ Walnut Valley Festival | Winfield,
KS
9/27 - 9/29 @ Roots N Blues N BBQ | Columbia, MO
10/19 @ The Wander Down Music Festival |
Makanda, IL
^w/ Jeff Austin Band, Tenth Mountain Division
* w/ Son Volt
Riding the Wave
This morning has been a wave for me.
The wave started when I read a press release in my Inbox about seeing John 5 and The Aristocrats in concert on Sunday, September 1, 2019, in Los Angeles, CA.
I was not interested for three reasons:
I didn't think it would be possible to create a scenario by which I would be there.
Then, I saw Logan Miles Nix play this drum solo:
Then I read that Marco Minnemann plays in The Aristocrats:
Even as I attempt to make it through a 21 minute drum solo, I was mesmerized. Here's a quick highlight about why I would love to see him play. I think it's not going out on a limb to state that drummers who play two bass drums have my respect. I have tried to play double bass and have never gotten used to the way I have to sit, which is with my legs spread apart wider than what feels comfortable. I have never tried playing double bass with a double bass drum pedal so maybe if I had one of those, I would work on playing double bass drums to the point of ability. Anyways, drummers with two bass drums often play amazing patterns. That said, it's far less common to watch a drummer NAIL a double hi-hat rhythm!
Hopefully, someone at the concert posts video to youtube so I can watch it.
The wave started when I read a press release in my Inbox about seeing John 5 and The Aristocrats in concert on Sunday, September 1, 2019, in Los Angeles, CA.
I was not interested for three reasons:
- I don't live in Los Angeles
- I don't have a free ticket
- I know we are busy on Sunday, September 1, 2019
I didn't think it would be possible to create a scenario by which I would be there.
Then, I saw Logan Miles Nix play this drum solo:
Then I read that Marco Minnemann plays in The Aristocrats:
Even as I attempt to make it through a 21 minute drum solo, I was mesmerized. Here's a quick highlight about why I would love to see him play. I think it's not going out on a limb to state that drummers who play two bass drums have my respect. I have tried to play double bass and have never gotten used to the way I have to sit, which is with my legs spread apart wider than what feels comfortable. I have never tried playing double bass with a double bass drum pedal so maybe if I had one of those, I would work on playing double bass drums to the point of ability. Anyways, drummers with two bass drums often play amazing patterns. That said, it's far less common to watch a drummer NAIL a double hi-hat rhythm!
So now, when I re-read the press release I received, with my new-found knowledge about Logan Miles Nix and Marco Minnemann, I am a little more sad now than when I first read the email, that I don't live in Los Angeles, that I don't have a free ticket, and that I have other plans on that Sunday.
JOHN 5 and the Creatures - comprised of world-renowned guitarist JOHN 5, bassist Ian Ross and drummer Logan Miles Nix - and The Aristocrats (guitarist Guthrie Govan, bassist Bryan Beller and drummer Marco Minnemann) will team up to co-headline an amazing night of instrumental euphoria on Sunday, September 1 at 1720 in Los Angeles. The show will be the first JOHN 5 performance following the July 31 release of the anxiously awaited new album, Invasion."JOHN 5 and The Aristocrats - It doesn't get much better than that," John 5 says. "It's one show only and you're not going to want to miss it. It's going to be a very exciting night, and definitely one to remember."Tickets are available now via www.etix.com/ticket/p/5271486/john-5the-aristocrats--los-angeles-1720. Special VIP Packages will also be available for JOHN 5 through the JOHN 5 webstore at www.john-5.com/store.Says The Aristocrats, "We always say that anything can happen onstage at an Aristocrats show - and that goes double for a JOHN 5/Aristocrats double bill! We're psyched because The Aristocrats and JOHN 5 are obviously coming at the instrumental rock thing from just completely different angles, and neither one of us is playing it straight down the middle. Should be a fun night for anyone in L.A. who likes their music loud and bent."
Hopefully, someone at the concert posts video to youtube so I can watch it.
Subscribe to:
Posts (Atom)