Problem with StringMid

[kctvt 0]

Problem with StringMid

Hi there, I'm creating a code read file infomation.txt , take 200 characters/time ... but I dont know how.

This's my code :

#include <File.au3>
$FileRead = FileRead ("D:\Text\NoteText.txt")

$i = 1

Do
$result = StringMid ($FileRead, $i, $i+199)
MsgBox(0, "Leftmost 3 characters are:", $result)

$i = $i + 200
Until StringRight ($FileRead,0)

Humm... I know this code is wrong. But, this's just like an example.

I have an Example :

As a translator translates words from one language to another, it means you will have the opportunity to attract a wide variety of audience from all over the world because not all people can understand english.

I want to take 200 characters/time , So... How...

[Melba23 2,661]

kctvt,

You were pretty close:

$sString = "As a translator translates words from one language to another, it means you will have the opportunity to attract a wide variety of audience from all over the world because not all people can understand English."

$iStart = 1
$iStep = 50
Do
    ConsoleWrite(StringMid($sString, $iStart, $iStep) & @CRLF)
    $iStart += $iStep
Until $iStart > StringLen($sString)

Just use the value you want for $iStep.

M23

[kctvt 0]

He he , thank Melba ^^ It's working.

$iStart > StringLen($sString) ==> This's the key.

[Yashied 200]

Another way.

$sString = "As a translator translates words from one language to another, it means you will have the opportunity to attract a wide variety of audience from all over the world because not all people can understand English."

$aString = StringRegExp($sString, '.{1,50}', 3)

For $i = 0 To UBound($aString) - 1
    ConsoleWrite($aString[$i] & @CR)
Next