Konu: table da arapça karekterlerin görümesi
selamlar;
www.mrduyar.com/download/kuran_tr_ing_ar.rar
elimdeki bu rar içindeki xls dosyasında bulunan türkçe,ingilizce,arapça kuran mealini var.
aşağıdaki kod ile aktarıyorum ancak cursor/table da arapça karakterler görünmüyor.
Bunu çözmenin bir yolu varmı.
Create Cursor kuranx (siralama c(50),tr m,ing m,ar m)
Select kuranx
Local dosya,satir,zi,ok1
dosya=Getfile()
satir=0
z=0
If !Empty(dosya)
Local loExcel
loExcel = Createobject('Excel.Application')
loExcel.Workbooks.Open(dosya)
Do While .T.
satir=satir+1
deger1=loExcel.Activeworkbook.Activesheet.Cells(satir,1).Value
deger2=loExcel.Activeworkbook.Activesheet.Cells(satir,2).Value
deger3=loExcel.Activeworkbook.Activesheet.Cells(satir,3).Value
deger4=loExcel.Activeworkbook.Activesheet.Cells(satir,4).Value
If Isnull(deger1)
deger1=""
Endif
If Isnull(deger2)
deger2=""
Endif
If Isnull(deger3)
deger3=""
Endif
If Isnull(deger4)
deger4=""
Endif
Insert Into kuranx (siralama,tr,ing,ar);
Values (Alltrim(deger1),deger2,deger3,deger4)
z=z+1
If z=6239
Exit
Endif
Enddo
loExcel.Workbooks.Close
loExcel.Quit
Release loExcel
Endif