Turn to the great god help me do the songs participle and word frequency statistics,
The specific format of reference images after the first "angel wings" new field participle word frequency, and points the basic just like this
Bubble sense should be able to use a program to run, but I can't write program

So request you great god pass by to write a program to help me, thank you very much!!!!!!!!!!!

CodePudding user response:

Participle with separated by a vertical bar "|", you beautiful | |

 
The Public Function WordFrequency (ByVal Lyric As String, ByVal Word As String) As String 
Dim arr As the Variant 
Dim BRR As the Variant 
Dim As Long I 
Dim countChar As Long 

If Lyric="" Or Word=" "Then Exit Function 
If InStrRev (Word, "|")=0 Then the Exit Function 
Arr=Split (Word, "|") 
For I=0 To UBound (arr) - 1 
BRR=Split (Lyric, arr (I)) 
CountChar=UBound (BRR) - LBound (BRR) 
WordFrequency=WordFrequency & amp; "" "& amp; Arr (I) & amp; "" "& amp; "Occurrences:" & amp; CountChar & amp; VbCrLf 
Next I 

End the Function