How to add link breaks?

[kegiaumat055]

How to add link breaks with random sentences in a paragraph?

Example:

Sentence1. Sentence2. Sentence3. Sentence4. Sentence5. Sentence6. Sentence7

---> result:

  Quote

Sentence1. Sentence2.

Sentence3. Sentence4. Sentence5.

Sentence6.

Sentence7

Please help me ! Edited April 30, 2012 by kegiaumat055

[kaotkbliss]

you could use stringsplit using the period, then write your lines with 2 results per line.

[kegiaumat055]

#include <string.au3>
    #include <array.au3>
    
    $open= FileOpen('input.txt', 128)
    If @error Then Exit
    $update=FileOpen('output.txt',128+8+1)
    If @error Then Exit
    $text=FileReadline($open)
    $random = random(1, 10)
    $split = StringSplit($text,".")
    if @error then Exit

Can you help me write the rest, please ?

[kegiaumat055]

#include<String.au3>

    $open= FileOpen('input.txt', 128)
    If @error Then Exit
    $update=FileOpen('output.txt',128+8+1)
    If @error Then Exit
    $text=FileRead($open)
    
    $split = StringSplit($text,".")
    if @error then Exit
    $sens=StringSplit($text,".",1)
  
     for $i=1 to $sens[0]
       FileWrite($update, $sens[$i] & ".")
       If mod($i,random(2,3,1)) == 1 Then
          FileWrite($update, @CRLF)
          
     Next
      
    FileClose($update)
    FileClose($open)

What is wrong ? It show an error :"Next statement with no matching for statement"

Edited April 30, 2012 by kegiaumat055

[tonycst]

Am not sure what you trying to accomplish here.

New line is usualy created by @CRLF

MsgBox(0,"","line 1" & @CRLF & "line 2")

or

GUICtrlCreateEdit ("line 1" & @CRLF & "line 2",0,0,100,60)

Or are you trying to read the file and detect where it brakes the line ?

[kegiaumat055]

I wanna add link breaks to random sentences ? You can see my example. Sorry, my english isn't good !

[czardas]

I'm not sure if this is exactly what you want or not.

$open= FileOpen('input.txt', 128)
If @error Then Exit
$update=FileOpen('output.txt',128+8+1)
If @error Then Exit
$text=FileRead($open)

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 2)

If StringRight($text, 1) = "." Then $text = StringTrimRight($text, 1) ; <== ERROR WAS HERE
$sens = StringSplit($text,".",1)

$sString = ""
If $sens[0] Then $sString = $sens[1] & "."
If $sens[0] > 1 Then
    For $i = 2 To $sens[0]
        If $sens[$i] = "" Then ContinueLoop
        If random(0,2,1) Then
            $sString &= $sens[$i] & "."
        Else
            $sString &= @CRLF & StringStripWS($sens[$i], 1) & "."
        EndIf
    Next
EndIf

FileWrite($update, $sString)

Actually this isn't necessarily the best solution, but I'm still not entirely sure what the input.txt will contain.

Edited May 4, 2012 by czardas

[kegiaumat055]

  On 4/30/2012 at 9:14 AM, 'czardas said:

I'm not sure if this is exactly what you want or not.

$open= FileOpen('input.txt', 128)
If @error Then Exit
$update=FileOpen('output.txt',128+8+1)
If @error Then Exit
$text=FileRead($open)

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 2)

If StringRight($text, 1) = "." Then StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
If $sens[0] Then $sString = $sens[1] & "."
If $sens[0] > 1 Then
    For $i = 2 To $sens[0]
        If $sens[$i] = "" Then ContinueLoop
        If random(0,2,1) Then
            $sString &= $sens[$i] & "."
        Else
            $sString &= @CRLF & StringStripWS($sens[$i], 1) & "."
        EndIf
    Next
EndIf

FileWrite($update, $sString)

Actually this isn't necessarily the best solution, but I'm still not entirely sure what the input.txt will contain.

It has an error. Please fix it ! Edited April 30, 2012 by kegiaumat055

[BrewManNH]

  On 4/30/2012 at 5:53 PM, 'kegiaumat055 said:

It has an error. Please fix it !

WOW, that was incredibly rude.

[czardas]

  On 4/30/2012 at 5:53 PM, 'kegiaumat055 said:

It has an error.

What error do you get?

It works for the input you provided.

sentence1. sentence2. sentence3. sentence4. sentence5. sentence6. sentence7.

Edited April 30, 2012 by czardas

[kegiaumat055]

  On 4/30/2012 at 7:59 PM, 'czardas said:

What error do you get?

It works for the input you provided.

sentence1. sentence2. sentence3. sentence4. sentence5. sentence6. sentence7.

You can see an error in my attach file. Can you fix it for me, please ?

[czardas]

I don't know - I can't recreate that error. It's possible you copied the wrong code, because I did make some changes to it. Does the code work for anyone else?

[guinness]

I agree with BrewManNH, just rude.

czardas,

I don't have a problem with your code in post #7. The output I got was

  Quote

Sentence1. Sentence2. Sentence3. Sentence4.

Sentence5. Sentence6. Sentence7.

[czardas]

  On 5/1/2012 at 8:13 AM, 'guinness said:

I agree with BrewManNH, just rude.

Perhaps it was not intentional: since the OP's mother tongue is not English. I gave him the benefit of the doubt. Thanks for testing the script. The flags in the 3rd line really ought to be BitOr'ed together, but I didn't write that part.

[kegiaumat055]

  On 5/1/2012 at 8:49 AM, 'czardas said:

Perhaps it was not intentional: since the OP's mother tongue is not English. I gave him the benefit of the doubt. Thanks for testing the script. The flags in the 3rd line really ought to be BitOr'ed together, but I didn't write that part.

Yes, it was not intentional. My english isn't good.

I copied your code into excel, then I copy to AutoIt editor. If I copy your code directly into AutoIt editor, it will only have one line.

[AdmiralAlkex]

Try copying from the popup and/or with a different browser

[czardas]

Okay that's a problem with the forum code tags. You should click the option where it says popup and the code appears in a new window. If you copy that and paste it directly into SciTE it should work fine.

AdmiralAlkex got there first.

Edited May 1, 2012 by czardas

[guinness]

  On 5/1/2012 at 2:52 PM, 'kegiaumat055 said:

Yes, it was not intentional. My english isn't good.

OK, understood.

[kegiaumat055]

Great ! It worked. Thank you very very much

[kegiaumat055]

  On 4/30/2012 at 9:14 AM, 'czardas said:

I'm not sure if this is exactly what you want or not.

$open= FileOpen('input.txt', 128)
If @error Then Exit
$update=FileOpen('output.txt',128+8+1)
If @error Then Exit
$text=FileRead($open)

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 2)

If StringRight($text, 1) = "." Then StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
If $sens[0] Then $sString = $sens[1] & "."
If $sens[0] > 1 Then
    For $i = 2 To $sens[0]
        If $sens[$i] = "" Then ContinueLoop
        If random(0,2,1) Then
            $sString &= $sens[$i] & "."
        Else
            $sString &= @CRLF & StringStripWS($sens[$i], 1) & "."
        EndIf
    Next
EndIf

FileWrite($update, $sString)

Actually this isn't necessarily the best solution, but I'm still not entirely sure what the input.txt will contain.

How to add link breaks with random (between 3 to 6) sentences in a paragraph? What should I do ?

For example:

input.txt

  Quote

Sentence1. Sentence2. Sentence3. Sentence4. Sentence5. Sentence6. Sentence7. Sentence8. Sentence9. Sentence10. Sentence11. Sentence12. Sentence13. Sentence14. Sentence15.

Output.txt

  Quote

Sentence1. Sentence2. Sentence3. Sentence4.

Sentence5. Sentence6. Sentence7.

Sentence8. Sentence9. Sentence10. Sentence11. Sentence12.

Sentence13. Sentence14. Sentence15.

Edited May 3, 2012 by kegiaumat055