Re-arranging word in a sentence.

[Qckdesign]

Hey guy's

I posted this earlier on another forum and I got advised to go here. In the latest quote, a fellow forum member gives advice on the way it needs to be processed, maybe this helps out.

This is the post:

I am working on a book for a school project, it contains a large portion of text which is in english, but I want to write it like an arabic sentence. This means you have to read the sentence from right to left
 

example an is this

It is way to much text to re-write it, I am looking for some software that can do this for me, is anyone familiar with such software?

Thanks in advance!

Jordy

===

I got this advice from a fellow forum member:
 

(Today 12:17 PM)DuguWudi Wrote: ►

I just finish dinner, during eating I figure out how you can do it but you need someone familiar with autoit.

Pseudo code procedure

------------------------

Step 1

-------

"Hi I am Jordy and I am on HF" use StringReverse to become

"FH no ma I dna ydroJ ma I iH".

Step 2

-------

Use StringSplit on "FH no ma I dna ydroJ ma I iH" using space as delimiters and separate them into word for word(separate string1,string2..., then use a for loop to loop each string and use stringreverse again but this time on each word(string1,string2...) not whole sentence.

Step 3

-------

The final result would be

"HF on am I and Jordy am I Hi"

You ask for help in the autoit section here or in official autoit forum, maybe someone can create a simple autoit script for you.

In this example the following is used:

Regular sentence:
Hi I am Jordy and I am on HF

This is what I want it to look like
HF on am I and Jordy am I Hi

===
 

 

Would love to get some help!

[jchd]

Unicode to the rescue:

Local $s = "Hi I am Jordy and I am on HF"
$s = ChrW(0x202e) & $s & ChrW(0x202d)
MsgBox(0, "", $s & @LF)

 

[water]

Wow, cool solution

[iamtheky]

Those are backwards words though?

#include<array.au3>
Local $s = "Hi I am Jordy and I am on HF"
Local $a = stringsplit($s , " " , 2)
_ArrayReverse($a)
msgbox(0, '' , _ArrayToString($a , " "))