How to add link breaks?

[czardas]

What is this random number of sentences all about?

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

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 3)
If StringRight($text, 1) = "." Then $text = StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
For $i = 1 To $sens[0]
    For $j = 1 To Random(3,6,1)
        If $i > $sens[0] Then ExitLoop
        $sString &= $sens[$i] & "."
        $i += 1
    Next
    $sString &= @CRLF
    $i -= 1
Next
FileWrite($update, $sString)

Edited May 3, 2012 by czardas

[kegiaumat055]

What is this random number of sentences all about?

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

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 3)
If StringRight($text, 1) = "." Then $text = StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
For $i = 1 To $sens[0]
    For $j = 1 To Random(3,6,1)
        If $i > $sens[0] Then ExitLoop
        $sString &= $sens[$i] & "."
        $i += 1
    Next
    $sString &= @CRLF
    $i -= 1
Next
FileWrite($update, $sString)

Great ! Thanks

But it has a space in the top lines.

For Example:

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

Edited May 3, 2012 by kegiaumat055

[czardas]

Isn't life a b***h. Try to fix it and see what happens. If you can't solve it, I'll help, but I need to see you make an effort to solve it first.

[kegiaumat055]

Isn't life a b***h. Try to fix it and see what happens. If you can't solve it, I'll help, but I need to see you make an effort to solve it first.

Sorry,

It is easy to fix an error

$sens = StringSplit($text,".",1)  ---->  $sens = StringSplit($text,". ",1)

Thank you very much !

[czardas]

You found the root of the problem. What you have also strips spaces between all sentences. I came up with a slightly different solution. Anyway, you were definately on the right track

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

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 3)
If StringRight($text, 1) = "." Then $text = StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
For $i = 1 To $sens[0]
    For $j = 1 To Random(3,6,1)
        If $i > $sens[0] Then ExitLoop
        $sString &= StringStripWS($sens[$i], 3) & ". "
        $i += 1
    Next
    $sString &= @CRLF
    $i -= 1
Next
FileWrite($update, $sString)