SO my sudo is
Open textX file
Loop until words remaining is less than 15 (length of string)
Count 15 - 20 spaces (in between word space) String = Words(count)
Add full stop
Carriage return
Loop
Save FileX
Any help would be much appreciated
![Smile :)](./images/smilies/icon_e_smile.gif)
Code: Select all
word_per_row := 5
list=
(
Fusce nisi dolor, venenatis sed nunc sed, aliquam condimentum libero. Fusce dictum mauris sit amet fermentum interdum. Donec ullamcorper aliquet odio, et pulvinar mi auctor ut. Duis ut eleifend ligula. Phasellus tincidunt, enim sed euismod faucibus, ipsum sem
ultrices nunc, vel eleifend velit nunc ac neque. Duis feugiat diam et semper gravida. Fusce ac lectus id mi cursus auctor. Maecenas lobortis velit ac lorem convallis, at tristique urna mattis. Aliquam eu feugiat odio. Quisque porta nunc a nisi pharetra cursus. Proin eleifend
tincidunt neque ut tincidunt. Praesent nunc elit, lacinia quis condimentum vitae, sagittis et lectus. Suspendisse at interdum lorem, non cursus nulla. Maecenas suscipit ac lacus eget pellentesque.
Donec ut turpis quam. Vivamus placerat sollicitudin nunc eget laoreet. Maecenas vitae velit elit. Phasellus ac finibus odio. Aliquam erat volutpat. Praesent nunc lorem, convallis a pharetra sed, luctus ac quam. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. Curabitur semper imperdiet semper. Donec eget tempor libero. Morbi eleifend dolor eu mi fermentum, nec hendrerit elit accumsan. Aliquam id tellus pellentesque, dignissim nisi eu, porta dui. Nullam suscipit dolor in ipsum iaculis tempor. Nulla semper et metus sit amet venenatis. Vivamus ut tincidunt velit.
)
;------------------------------------------------------------------------------------------------***
; I use a list but if you want to read from a file uncomment the line below
; FileRead, List, your_input_file.txt
;------------------------------------------------------------------------------------------------***
for k, v in StrSplit(RegExReplace(list,"\s+"," ")," ") {
if (Mod(k,word_per_row)) = 0
str .= v "`n"
else str .= v " "
}
FileDelete, outFile.txt
FileAppend, %str%, outFile.txt
run, outFile.txt
ExitApp
the highlighted solution does not add a "full stop" and doesn't select a random amount of words fyi.chango wrote: ↑06 Feb 2020, 11:16I have some large text blocks and I want to split then into lines with a set or random amount of words
SO my sudo is
Open textX file
Loop until words remaining is less than 15 (length of string)
Count 15 - 20 spaces (in between word space) String = Words(count)
Add full stop
Carriage return
Loop
Save FileX