إستخلاص الأسطر العربية من الكائن RichText بدون استخدام اضافات خارجية

function Mohager_Arab_Rich_text(line)
arabic_chars={"","","","","","","",""," ","","","","","","","","","","","","","","","","","","","","","",""," ","!","","\#","$","\%","&","'","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","@","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","[","\"","]","^","_","`","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","{","|","}","~","","€","پ","‚","ƒ","„","…","†","‡","ˆ","‰","ٹ","‹","Œ","چ","ژ","ڈ","گ","‘","’","“","”","•","–","—","ک","™","ڑ","›","œ","‌","‍","ں"," ","،","¢","£","¤","¥","¦","§","¨","©","ھ","«","¬","­","®","¯","°","±","²","³","´","µ","¶","·","¸","¹","؛","»","¼","½","¾","؟"," ","ء","آ","أ","ؤ","إ","ئ","ا","ب","ة","ت","ث","ج","ح","خ","د","ذ","ر","ز","س","ش","ص","ض","ط","ظ","ع","غ","ف","ف","ف","ف","ف","و","ف","ق","ك","ل","م","ن","ه","و","ى","ي","é","ê","ë","ى","ي","î","ï","ً","ٌ","ٍ","َ","ô","ُ","ِ","÷","ّ","ù","ْ","û","ü","‎","‏","ے"}
len = String.Length(line);
text = ""
for i = 1,len do
char = String.Mid(line, i, 1);
asc = (String.Asc(char))+160
text = text..arabic_chars[asc]
end
end

line = RichText.GetLine("RichText1", 1);
Mohager_Arab_Rich_text(line)
Dialog.Message("Notice", text, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);