1 Konuyu açan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

Konu: array dan text dosyasına bilgi yazdırmak

Sevgili Arkadaşlar,
Bir arraydan text dosyasına doğrudan bilgi aktarılabilir mi?
Ben bu konuyu çok saçma bir şekilde şöyle çözdüm:
Önce bir dbf yaratıyorum.
Sonra buna append from array komutuyla bilgileri yazdırıyorum.
Daha sonra da copy to dosya.txt sdf komutuyla text dosyasını elde ediyorum.
Bu yol hernekadar iş görüyorsa da bana çok saçma göründü.
Bunun daha güzel ve kısa bir yolu var mıdır?
Önerilerinizi bekliyorum.
İlgilenip yolgösterecek arkadaşlara şimdiden çok teşekkür ederim.
Sevgilerimle.
Erdal

2 Cevaplayan Mehmet K

  • Mehmet K
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 913

Re: array dan text dosyasına bilgi yazdırmak

Visual Fox Pro
LOCAL ARRAY x[2]

 

x[1] = "Merhaba"

x[2] = "Nasilsin?"

 

STRTOFILE(x[1], "x1.txt")

STRTOFILE(x[2], "x2.txt")
Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.

3 Cevaplayan birol

  • birol
  • birol
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 09.01.2007
  • İleti: 220

Re: array dan text dosyasına bilgi yazdırmak

Bu da biraz değiştirilmişi :

Visual Fox Pro
Local Array x[2]

 

x[1] = "Merhaba"

x[2] = "Nasilsin?"

 

Strtofile("","x1.txt")

For IX=1 To Alen(x)

    Strtofile(x(IX)+Chr(13), "x1.txt",.T.)

Next

 

Modify File X1.TXT

4 Cevaplayan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

Re: array dan text dosyasına bilgi yazdırmak

Sevgili Birol,
Senin yolun işe yaradı. Dosya tam istediğim gibi oldu.
Yardımın için çok teşekkür ederim. Allah rağzıolsun.
Sevgilerimle.
Erdal

5 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: array dan text dosyasına bilgi yazdırmak

Merhabalar:) Yeni yiliniz kutlu olsun.
Bence senin sacma dedigin yontem en efektif yontemlerden birisi. Eger o sekilde cozmeyeceksen nacizane tavsiyem FCreate(), FWrite() ... serisi IO komutlarini ya da textmerge kullanman:

Visual Fox Pro
set textmerge to ("Dizi.txt") noshow

set textmerge on

for ix=1 to alen(aArray,1)

  for jx=1 to alen(aArray,2)

          if m.ix > 1

             \\,

          endif

         \\<< aArray[m.ix, m.jx] >>

  endfor

  \

endfor

set textmerge to

set textmerge off

cetinbasoz's Website