SPLIT STRING

This script is very nice & works out way better for what I need it for. However it is limited to only halves. Sometimes I will be calling on a subroutine that divides into thirds, fourths and sometimes even fifths.

How do I convert this into a subroutine that can divide a string equally into any number of parts?
It does not necessarily have to be apple script as long as it will run in the script window. It can be js or a shell script.



[code]
display dialog split_me("Jon Jacob Jingle Hymersmithsonian", 2)


on split_me(theString, 2)
set theDelimiter to " "
set midString to round ((length of theString) / 2)
set stringA to text 1 thru midString of theString
set stringB to text (midString + 1) thru end of theString
set controlList to characters of stringB
repeat with theChar in controlList
if theChar as string is not theDelimiter as string then
set stringA to stringA & theChar
set stringB to text 2 thru end of stringB
else
if theDelimiter as string is " " as string then
set stringB to text 2 thru end of stringB
end if
exit repeat
end if
end repeat
return stringA & return & stringB
end split_me

I still need to run this from within 'applecript' or 'applecript studio' and to be able to pass variables back n forth to the applecript. I do not know enough about ruby or perl to make this work.

this is what i have so far but it returns noting. I need var 'the_string' to return the string divided.
[code]
set the_string to "Jon Jacob Jingle Hymersmithsonian"


set this_script to {"ruby #!/usr/bin/env ruby
def split_me (str,n)
str.scan(/.{#{str.length/n}}/)
end
p split_me(\"", the_string, "\",2) "} as string


do shell script this_script

Does this break the words up or the characters?
I do not want the words broken, just the lines/paragraphs.

(*
Bernards script was the closest thing to what I need. I posted an example below of more specifically what I intend the outcome to be. This seems like it would be an easy task however Ive been stumped for days.


[code]

I am trying to break up a string/paragraph into as close to equal word segments as possible *)


-----example halves
set the_string to split wordseg("one two three four five six extraordinarily_longer", 2)

(* DESIRED OUTPUT HERE:
output_string = "one two three four five
six extraordinarily_longer"
display dialog the_string
*)



---example thirds
set the_string to split wordseg("one two three four five six extraordinarily_longer", 3)

(* DESIRED OUTPUT HERE:
output_string = "one two three
four five six
extraordinarily_longer"
display dialog the_string
*)


---example sixths
set the_string to split wordseg("one two three four five six extraordinarily_longer", 6)

(* DESIRED OUTPUT HERE:
output_string = "one two
three
four
five
six
extraordinarily_longer"
display dialog the_string
*)



-----the subroutine
split word_seg(inputstring, x)

(*do function divide string into increments of x without cutting breaking up any words. Any blank space at the end of each new paragraphs will be removed as well.
Script would evaluate the length of the 2 words nearest to the split to determine best place to make the paragraph breaks*)

return output_string
end

Message was edited by: handellphp

When I run your script, I get un even breaks.

Example:

display dialog split_me("The Ohio Valley Country Club, Casino & Resorts", 2)

returns
"The Ohio Valley
Country Club, Casino & Resorts "


when a more logic output would be
"The Ohio Valley Country
Club, Casino & Resorts"



The application is design. I am using Adobe AI to output designs with multiple variables which is usually a pretty simple task however I have one particular job that requires lines to be divided in order to fit a predefined space.

After the lines get divided by a variable character count they are then horizontally scaled to fit the a more precise width. Word wrap will not work.

(it's so difficult trying to make the computer think like a human)


The closest Ive gotten is thsi script below, but it doesnt work well either on equal division and messes up when a word is longer than the max char width for each line.

[code]

display dialog split_me("The Ohio Valley Country Club, Casino & Resorts", 2)
display dialog split_me("The Ohio Valley Country Club, Casino & Resorts", 3)
display dialog split_me("The Ohio Valley Country Club, Casino & Resorts", 4)
display dialog split_me("The Ohio Valley Country Club, Casino & Resorts", 5)
display dialog split_me("The Ohio Valley Country Club, Casino & Resorts", 6)

on split_me(theString, d)
set theDelimiter to " "
set cnt to length of theString
set midString to round ((length of theString) / d) rounding down
set midString to midString
set hhh to count words of theString
set new_string to ""
set x to 0
set incrementz to midString
repeat
set x to x + 1
set char to character x of theString
if char = " " then
if x > midString then
set midString to midString + incrementz
set new_string to new_string & return
end if
end if
set new_string to new_string & char
if x = cnt then exit repeat
end repeat
return new_string
end split_me

Message was edited by: handellphp

Well Im gonna have to go with this one, its not perfect but its closer to my goal.

I added some additional script to the bottom in order to remove the blank spaces at the end of each paragraph. Thank you very much for your input, I appreciate it greatly.



[code]

display dialog split_me("The Ohio Valley Resorts & Casinos", 2)


on split_me(theString, Segments)

set theDelimiter to " "
set stringList to {}
set returnString to ""
set stringLength to length of theString
set segSize to 1 + (round stringLength / Segments rounding up)
set Occurrences to 0
set theOffset to offset of theDelimiter in theString
repeat while theOffset is not 0
if stringList is {} then
set end of stringList to {text 1 thru (theOffset - 1) of theString, theOffset}
else
set end of stringList to {text 1 thru (theOffset - 1) of theString, theOffset + (last item of last item of stringList)}
end if
set theString to text (theOffset + 1) thru end of theString
set Occurrences to Occurrences + 1
set theOffset to offset of theDelimiter in theString
end repeat
set end of stringList to {theString, stringLength}

if (Segments - 1) > Occurrences then
return "Cant Split"

else
if length of stringList = Segments then
repeat with aString in stringList
set returnString to returnString & first item of aString & return
end repeat
else
set breakList to {}
repeat with breakNumber from 1 to Segments
repeat with aString in stringList
if (second item of aString < (segSize * breakNumber)) or (second item of aString = (segSize * breakNumber)) then
if length of breakList ≠ breakNumber then
set end of breakList to {first item of aString}
else
set end of item breakNumber of breakList to first item of aString
end if
if length of stringList > 1 then
set stringList to items 2 thru end of stringList
end if
end if
end repeat
end repeat
repeat with aString in breakList
repeat with subString in aString
set returnString to returnString & subString & " "
end repeat
set returnString to returnString & return
end repeat
end if
end if


-------------my add on
set returnString2 to ""
repeat with x from 1 to (count paragraphs of returnString)
set this_par to paragraph x of returnString
set z to count characters of this_par
set z to z - 1
try
if last character of this_par = " " then set returnString2 to returnString2 & (characters 1 through z of this_par)
if last character of this_par ≠ " " then set returnString2 to returnString2 & this_par
if (last character of this_par = " ") or (last character of this_par ≠ " ") then set returnString2 to returnString2 & return
end try
end repeat

if last character of returnString2 = "
" then
set cnt to count characters of returnString2
set returnString to characters 1 through (cnt - 1) of returnString2 as string
end if
------------- end my add on




return returnString
end split_me