Stringsplit while word count reach specific characters Topic is solved

[ivill]

is it possible to count total characters and stringsplit(a sentense in this example) it then:
1. insert a `n after 58th chars if total chars are greater than 58, the total count of first line should be less or equal 58, do not break a full word.
2. or there's no need to insert a `n, simply split the whole sentence to 2 strings, so we can call them and send input

example:

Code: Select all

This all works until the row is moved from its current row number above or below another name. ;94 characters

True

Code: Select all

This all works until the row is moved from its current row;`n New line 58 characters
 number above or below another name.

False

Code: Select all

This all works until the row is moved from its curren;`n New line 63 characters ("current" breaked)
t row number above or below another name.

[boiler]

Starting with the 58th character, count backwards until you find a character that is a space and break it into two strings at that character using SubStr().

[ivill]

Starting with the 58th character, count backwards until you find a character that is a space and break it into two strings at that character using SubStr().

Thanks @boiler gonna figure it out

[boiler]

You're welcome. Did you really mean to show the "off topic" emoji?

[ivill]

You're welcome. Did you really mean to show the "off topic" emoji?

sorry might be wrong click

[Odlanir]

Try this:

Code: Select all

Text := "This all works until the row is moved from its current row number above or below another name"
loop {   
   if ( substr(text, currChar := 60-A_Index, 1) = " " )
      break
}   
MsgBox % substr(Text, 1, currChar-1 ) "`n" substr(Text, currChar+1 )   

[jeeswg]

See 'SEARCH FROM THE NTH CHARACTER BACKWARDS':
jeeswg's strings tutorial - AutoHotkey Community
https://autohotkey.com/boards/viewtopic.php?f=7&t=32985

[Helgef]

Edit: You should take boiler's advice and try it yourself with substr first

Spoiler

maybe something like this, regexreplace(str,"(.{1,58})\b","$1`n"). You might want to trim leading spaces if it is for display.

[ivill]

See 'SEARCH FROM THE NTH CHARACTER BACKWARDS':
jeeswg's strings tutorial - AutoHotkey Community
https://autohotkey.com/boards/viewtopic.php?f=7&t=32985

Thanks @jeeswg, i'll keep focusd on your codes, this function looks a bit difficult for me

[ivill]

Edit: You should take boiler's advice and try it yourself with substr first

Spoiler

maybe something like this, regexreplace(str,"(.{1,58})\b","$1`n"). You might want to trim leading spaces if it is for display.

Thanks anyway @Helgef for your suggestion, i tried @Odlanir's code, and it does simple and works for me.

[ivill]

Try this:

Code: Select all

Text := "This all works until the row is moved from its current row number above or below another name"
loop {   
   if ( substr(text, currChar := 60-A_Index, 1) = " " )
      break
}   
MsgBox % substr(Text, 1, currChar-1 ) "`n" substr(Text, currChar+1 )  

Thanks, @Odlanir, it does simple and works for me!

[Odlanir]

I've noticed that if the text length in less than 58 chars my code will split the last word.
This is the new code that should correct the issue.
It perform even on a really longer input string.
Hope this helps.
Regards.

Rinaldo.

Code: Select all

Text := "This all works until the row is moved from its current row number above or below another name or below another name 2 This all works until the row is moved from its current row number above or below another name or below another name 3 This all works until the row is moved from its current row number above or below another name or below another name 4 This all works until the row is moved from its current row number above or below another name or below another name END of Sentence This all works until the row is moved from its current row number above or below another name or below another name 2 This all works until the row is moved from its current row number above or below another name or below another name 3 This all works until the row is moved from its current row number above or below another name or below another name 4 This all works until the row is moved from its current row number above or below another name or below another name END of Sentence"

Loop
{   
   if StrLen(Text) <= 58 
      break
   posx := SplitTxt(Text) 
   oTxt .= Trim(substr(Text, 1, Posx )) "`n"
   text := substr(Text, Posx+2 )
}  
oTxt .= Text "`n"
MsgBox % oTxt
ExitApp

SplitTxt(txtIN) {
   loop {   
      if ( substr(txtIN, currChar := 59-A_Index, 1) = " " )
      return currChar - 1
   } 
}

[ivill]

Try this:

Code: Select all

Text := "This all works until the row is moved from its current row number above or below another name"
loop {   
   if ( substr(text, currChar := 60-A_Index, 1) = " " )
      break
}   
MsgBox % substr(Text, 1, currChar-1 ) "`n" substr(Text, currChar+1 ) 

i'm trying to add "else if" condition, if currChar <= 72 then there's no need to substr the %Text%, i tried alot, but none of the two codes in the below will working... could you/someone help me out? thanks!

Code: Select all

loop
{   
if ( substr(text, currChar := 72-A_Index, 1) = " " )
   break
}
if currChar > 72
{
say1 := substr(Text, 1, currChar-1 )
say2 := substr(Text, currChar+1 )
MsgBox % say1 "`n" "`n" say2
}
else
if currChar <= 72
{
MsgBox % Text
}

Code: Select all

loop
{   
   if ( substr(text, currChar := 72-A_Index, 1) = " " )
      break
}
say1 := substr(Text, 1, currChar-1 )
say2 := substr(Text, currChar+1 )
MsgBox % say1 "`n" "`n" say2
else
if ( substr(text, currChar <= 72, 1))
MsgBox % Text

[Odlanir]

Code: Select all

Text := "This all works until the row is moved from its current row number above or below another name or below another name 2 This all works until the row is moved from its current row number above or below another name or below another name 3 This all works until the row is moved from its current row number above or below another name or below another name 4 This all works until the row is moved from its current row number above or below another name or below another name END of Sentence This all works until the row is moved from its current row number above or below another name or below another name 2 This all works until the row is moved from its current row number above or below another name or below another name 3 This all works until the row is moved from its current row number above or below another name or below another name 4 This all works until the row is moved from its current row number above or below another name or below another name END of Sentence"

len := 72 ; <=== choose any length for the output string

Loop
{   
   if StrLen(text) <= len 
      break
   posx := SplitTxt(Text) 
   oTxt .= Trim(substr(Text, 1, Posx )) "`n"
   text := substr(Text, Posx+2 )
}  
oTxt .= Text "`n"
MsgBox % oTxt
Clipboard := oTxt
ExitApp

SplitTxt(txtIN) {
   global len
   loop {   
      if ( substr(txtIN, currChar := len+1-A_Index, 1) = " " )
      return currChar - 1
   } 
}

[ivill]

Code: Select all

Text := "This all works until the row is moved from its current row number above or below another name or below another name 2 This all works until the row is moved from its current row number above or below another name or below another name 3 This all works until the row is moved from its current row number above or below another name or below another name 4 This all works until the row is moved from its current row number above or below another name or below another name END of Sentence This all works until the row is moved from its current row number above or below another name or below another name 2 This all works until the row is moved from its current row number above or below another name or below another name 3 This all works until the row is moved from its current row number above or below another name or below another name 4 This all works until the row is moved from its current row number above or below another name or below another name END of Sentence"

len := 72 ; <=== choose any length for the output string

Loop
{   
   if StrLen(text) <= len 
      break
   posx := SplitTxt(Text) 
   oTxt .= Trim(substr(Text, 1, Posx )) "`n"
   text := substr(Text, Posx+2 )
}  
oTxt .= Text "`n"
MsgBox % oTxt
Clipboard := oTxt
ExitApp

SplitTxt(txtIN) {
   global len
   loop {   
      if ( substr(txtIN, currChar := len+1-A_Index, 1) = " " )
      return currChar - 1
   } 
}

sorry but you probably misunderstand my query... the split function works great, but missing else if condition...

Code: Select all

loop
{   
if ( substr(text, currChar := 72-A_Index, 1) = " " )
   break
}
say1 := substr(Text, 1, currChar-1 )
say2 := substr(Text, currChar+1 )
MsgBox % say1 "`n" "`n" say2
}
else ;expected else if, but not working
if currChar <= 72 ;expected else if, but not working
{ ;expected else if, but not working
MsgBox % Text ;expected else if, but not working
} ;expected else if, but not working
Return ;expected else if, but not working

[jeeswg]

This may be useful:
Edit some text files, string length - AutoHotkey Community
https://autohotkey.com/boards/viewtopic ... 69#p156069

[Odlanir]

sorry but you probably misunderstand my query... the split function works great, but missing else if condition...

The last code I've posted should do what you ask.
If you look at the code the else condition is implicit.
If the input string is less then the length ( in your case 72 ), the loop does nothing and the string remainst unchanged.

Code: Select all

	...
	if StrLen(text) <= len 
	      break
	...