1

Konu: doc uzantılı dosya içeriği

doc uzantılı dosya içeriğini bir table içine nasıl aktarabiliriz?

bir klasörün içinde belli numaralara ait doc uzantılı dosyalar var.
örneğin;
123456_ahmet taş.doc
123432_mehmet kaya.doc
.
.
.
bu dosyaların içindede öğrencilere ait bilgiler var. doğum yeri tarihi gibi...
benim amacım; table da bir alana dersane numarası ile birlikte adını alacak, diğer alana da dosya içeriğini aktaracak.

şimdiden teşekkürler....

2

Re: doc uzantılı dosya içeriği

sanırım zor bir soru oldu...

3

Re: doc uzantılı dosya içeriği

Zor degil karisik oldu:) Ben anladigimdan emin olmadigimdan cevap vermemistim. Yukaridakine gore ne anladiysam yazsam soyle birsey olacakti:

Visual Fox Pro
local ix, lcDir

local array aDocFile[1]
lcDir = getdir()
if !empty(m.lcDir)
  for ix = 1 to adir( aDocFile, addbs(m.lcDir) + '*.doc' )
      insert into myTable ;
             (ogrenciNo, ogrenciIsim, dosyaIcerik) ;
             values ;
             (int(val(aDocFile[m.ix,1])), ;
              substr(juststem(aDocfile[m.ix,1]), at('_',  juststem(aDocfile[m.ix,1]) + 1), ;
              FileToStr( addbs(m.lcDir) + aDocfile[m.ix,1] ) )
  endfor
endif

4

Re: doc uzantılı dosya içeriği

Öncelikle cevabınız için teşekkür ederim. Sorumu gayet iyi anlamışsınız.

substr(juststem(aDocfile[m.ix,1]), at('_',  juststem(aDocfile[m.ix,1]) + 1), ;
              FileToStr( addbs(m.lcDir) + aDocfile[m.ix,1] ) )

kodunda verileri ayrı ayrı tanıtınca oluyor. Aksi halde syntax error hatası veriyor. Bu halledilebilir. Asıl sıkıntı:

1- dosya eğer txt ise içeriğini aktarabiliyor. ama doc olduğunda  dosya içerik alanına garip karakterler atıyor. çaresi ne olabilir ki?


2-birde eğer dosya içeriği 255 karakterden fazla olursa geri kalanını başka bir alana nasıl aktarabilirim?

şimdiden teşekkürler...

5

Re: doc uzantılı dosya içeriği

bir doc dosyasını txt olarak nasıl kaydedebiliriz ? bunu yapabilirsem sorunu çözmüş olurum.

6

Re: doc uzantılı dosya içeriği

File \ Save As ...
Dosya türünü ordan seçtirsen ?

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ü

7 Son düzenleyen, astronot (30.05.2008 14:25:06)

Re: doc uzantılı dosya içeriği

fox üzerinden prg ile nasıl yapabiliriz demek istemiştim.

8

Re: doc uzantılı dosya içeriği

oword = createobject("word.application")
with oword
  lcText = .documents.Open(GETFILE('doc')).Range.Text
  .Quit
endwith

9

Re: doc uzantılı dosya içeriği

çok teşekkürler. aradığım şey işte buydu.

10

Re: doc uzantılı dosya içeriği

Çetin bey aynı şeyi excell içinde yapabilirmiyiz

11

Re: doc uzantılı dosya içeriği

Bilmiyorum, elle nasil yapacagimi bile kestiremiyorum onda.