Find word and remove it, in power automate desktop

[HarshChauhan]

Hi, after searching and trying for 2 days I have to ask for help. 
I want to create a program that takes a line from a string and
1. check if it has more than 60 words - If yes then (imagine line have 65 characters) remove 6 spaces between words from last. so those last 6 words become 1 word.

thank you : )

[Henrik_M · Accepted solution]

Interesting challenge. Copy this code into a blank desktop flow and check it out:

# The string below can be used for testing.
/# Lorem ipsum dolor sit amet, consectetur adipiscing elit. Mauris massa sem, vehicula ut pharetra vitae, fermentum vel metus. Nulla a leo quis neque sollicitudin mattis non gravida nisl. Etiam in ante rutrum, vestibulum urna sit amet, hendrerit risus. Sed enim nibh, bibendum ac pellentesque maximus, porttitor eget odio. Sed vitae mollis arcu. Donec mollis, quam in varius porta, elit neque pretium metus, vel efficitur justo dolor nec enim. Maecenas vitae semper sem. Pellentesque et lectus sed sem accumsan tempus a nec risus. Nulla rutrum mauris magna, at semper elit lobortis et. Donec elementum, mauris ac posuere rutrum, nisi enim pharetra nisl, id vulputate justo nulla vitae libero. Sed ornare, dui vel imperdiet lobortis, lorem neque porta enim, in laoreet risus nisl nec leo. Nam at ipsum urna. Etiam non lorem sit amet orci fermentum commodo. In metus dui, tincidunt sed ultricies in, commodo eu urna.
Ut eu mattis nisl. Maecenas hendrerit malesuada lorem eu pellentesque. Ut cursus leo ut malesuada tincidunt. Ut eu ligula turpis. In sit amet iaculis odio. Curabitur sagittis velit nec lorem interdum, vel pretium est pulvinar. Maecenas et placerat ante. Phasellus hendrerit, nibh posuere ornare rhoncus, eros mi congue erat, vel porta leo ligula a libero. Praesent ut cursus mi, eget faucibus nulla. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Integer cursus eros non nunc porttitor facilisis. Vivamus et laoreet sapien.
Phasellus a tortor quis dui iaculis pharetra. Donec et diam at tortor eleifend vulputate. Vestibulum ultrices eros sollicitudin arcu ultricies, laoreet viverra tellus cursus. Nulla leo purus, mollis vitae bibendum ac, aliquam ac diam. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia curae; Sed ultrices, felis at posuere posuere, elit elit varius sapien, sit amet dapibus leo mauris id sem. Maecenas vitae erat sapien. Nulla facilisi. Praesent ultrices orci luctus.
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Mauris massa sem, vehicula ut pharetra vitae, fermentum vel metus. Nulla a leo quis neque sollicitudin mattis non gravida nisl. Etiam in ante rutrum, vestibulum urna sit amet, hendrerit risus. Sed enim nibh, bibendum ac pellentesque maximus, porttitor eget odio. Sed vitae mollis arcu. Donec mollis, quam in varius porta, elit neque pretium metus, vel efficitur justo dolor nec enim. Maecenas vitae semper sem. Pellentesque et lectus sed sem accumsan tempus a nec risus. Nulla rutrum mauris magna, at semper elit lobortis et. #/
Display.InputDialog Message: $'''Paste your text here''' InputType: Display.InputType.Multiline IsTopMost: False UserInput=> UserInput
Text.SplitText.Split Text: UserInput StandardDelimiter: Text.StandardDelimiter.NewLine DelimiterTimes: 1 Result=> TextList
# Construct a string for a line choice dialog.
LOOP LoopIndex FROM 0 TO TextList.Count - 1 STEP 1
    Text.AppendLine Text: Choice_Text LineToAppend: $'''Line %LoopIndex%: %TextList[LoopIndex]%''' Result=> Choice_Text
    Text.AppendLine Text: Choice_Text LineToAppend: $'''%''%''' Result=> Choice_Text
END
# Lines are presented, and one is chosen. Value is converted to number.
Display.InputDialog Title: $'''Choose a line to limit to 60 words''' Message: Choice_Text.Trimmed InputType: Display.InputType.SingleLine IsTopMost: False UserInput=> Chosen_Line
Text.ToNumber Text: Chosen_Line Number=> Chosen_Line
# From the TextList, the spaces are found. If there are more than 59 spaces (60 words) stuff needs to happen...
Text.ParseText.Parse Text: TextList[Chosen_Line] TextToFind: $'''%' '%''' StartingPosition: 0 IgnoreCase: False OccurrencePositions=> Positions_Space
IF Positions_Space.Count >= 60 THEN
    # Everything from space index 0-58 is put into one substring.
    Text.GetSubtext.GetSubtextFromStartTo Text: TextList[Chosen_Line] NumberOfChars: Positions_Space[58] Subtext=> Subtext_FirstPart
    DISABLE Text.SplitText.Split Text: Subtext_FirstPart StandardDelimiter: Text.StandardDelimiter.Space DelimiterTimes: 1 Result=> Split_SubText1
    # Everything from space index 59-x is put into a second string.
    Text.GetSubtext.GetSubtextFrom Text: TextList[Chosen_Line] CharacterPosition: Positions_Space[59] Subtext=> Subtext_SecondPart
    /# Second substring has it's spaces removed.
(could also be done with a split+join.#/
    Text.Replace Text: Subtext_SecondPart TextToFind: $'''%' '%''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''%''%''' ActivateEscapeSequences: False Result=> Subtext_SecondPart
    # Final string is assembled.
    SET Final_String TO $'''%Subtext_FirstPart% %Subtext_SecondPart%'''
ELSE
    # If there's 60 or fewer words, the final result is just the unaltered chosen line.
    SET Final_String TO TextList[Chosen_Line]
END
# Present the result.
Display.ShowMessageDialog.ShowMessage Title: $'''Result''' Message: $'''Chosen line, limited to 60 words:

%Final_String%''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True
# Below, just so we can verify the number of words in the variable inspector.
Text.SplitText.Split Text: Final_String StandardDelimiter: Text.StandardDelimiter.Space DelimiterTimes: 1 Result=> TextList_For_Verification_Purposes

[MichaelAnnis]

I don’t know what all he said, but if all words are separated by a space (ex. Word1 Word2 Word3…), then you could split text by space delimiter which would put it to a list, and then you could piece it back together using a loop start with 0 increment 1 and %SplitText[LoopIndex]% written back to where you need it. In the loop do this logic: If LoopIndex is < 60, write {Space}, EndIf. Then there will only be spaces between the first 59 words. 

[HarshChauhan]

hey Henrik_M, it's working 😍. thanks a lot.
I'm unable to understand this code. can you pls just automate this part (screenshot)? so that I don't have to write 0 every time.