1 Konuyu açan mrduyar

  • mrduyar
  • mrduyar
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 620

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ı.


Visual Fox Pro
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
Bilmediğin Neyse Yanıldığındır.

2 Cevaplayan mrduyar

  • mrduyar
  • mrduyar
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 620

Re: table da arapça karekterlerin görümesi

Selamlar;
Arkadaşlar fikirlerinizi bekliyorum.

Bilmediğin Neyse Yanıldığındır.

3 Cevaplayan ugurlu2001

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: table da arapça karekterlerin görümesi

Selam Murat ;
Ne kadar yardımcı ollur emin değilim ama; COMPROP( ) ve SYS(3101) - COM Code Page Translation komutlarını bir incele.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

4 Cevaplayan metin

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: table da arapça karekterlerin görümesi

excel ve word unicode olduğu için aynı anda arapça ve türkçe destekler. foxpro'da unicode desteği olmadığı için şunları yapmalısın:

denetim masası->bölge ve dil seçenekleri->gelişmiş->unicode olmayan programların dili->arapça...

bunu yaptıktan sonra türkçe harfleri göremez hale geleceksin.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

5 Cevaplayan altun Son düzenleyen, altun (26.02.2007 16:40:36)

  • altun
  • altun
  • Uzman Üye
  • Offline
  • Yer: Offenbach / Almanya
  • Kayıt Tarihi: 07.10.2006
  • İleti: 68

Re: table da arapça karekterlerin görümesi

Problemi UT de soru olarak yazdım.  Gelen cevap şu şekilde.
Form üzerinde rtf control ekleyerek memo field alanına arapça text koyabiliyor veya gösterebiliyorsun.

İkinci bir  cevap daha var oda memo binary type kullanılması gerekiyor.

****

Bana göre senin yapabileceğin ise şu.

1. memo binary field içeren bir tablo hazırlanacak. (memo binary olmasının sebebi şu : charset i değiştiridiğinde binary memo içindeki değerler değişmiyor olduğu gibi kalıyor. Normal memo ise mecvut değer seçili karakter setine göre değişiyor.)


2. Metinin dediği gibi denetim masasından denetim masası->bölge ve dil seçenekleri->gelişmiş->unicode olmayan programların dili->arapça... seçeneği aktif hale getirilecek.

3. Excelden transfer işlemini yapıp ayarları tekrar eski haline getir.


mrduyar yazdı:

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ı.

altun's Website

6 Cevaplayan mrduyar

  • mrduyar
  • mrduyar
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 620

Re: table da arapça karekterlerin görümesi

teşekkürler arkadaşlar. deneyip bilgilendireceğim.

Bilmediğin Neyse Yanıldığındır.