1 Konuyu açan astronot

  • astronot
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 06.03.2007
  • İleti: 58

Konu: skip komutu

Mesleki ve Teknik E?itim Bölgesi: ADANA
ÇUKUROVA ÜNYVERSYTESY (ADANA)
Adana Meslek Yüksekokulu
1135422 Bilgisayar Teknolojisi ve Programlama SAY-1 120 3 63.279 07,3,D,89
1137506 Bilgisayar Teknolojisi ve Programlama (YÖ) SAY-1 120 2,3 80.339 07,2,D,90
.
.
.


yukarıdaki şekilde bir txt dosyası var.

SCAN
SCATTER memvar
    IF AT("ÜNYVERSYTESY",m.alan)>0 then
        SELECT tablo4
        APPEND BLANK
        replace unv WITH rtrim(m.alan)
        SKIP 1
        replace fakulte WITH m.alan
                                SKIP 1
                                replace kod with left(m.alan,7)
                               .
                               .
    ENDIF
   
ENDSCAN

şekline tabloya çevirmek istiyorum.
ancak skip 1 dedikten sonraki alanı almıyor. ilk alanı kabul ediyor.

yani m.alan ÇUKUROVA ÜNYVERSYTESY (ADANA) atadıktan sonra skip 1 ile 1 satır aşağıya inip o satırdaki alanı almak ve üzerinde işlem yapıp diğer satıra geçmek istiyorum

bilmem anlatabildim mi?
cevaplarınız için şimdiden teşekkürler....

astronot's Website

2 Cevaplayan cetinbasoz

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

Re: skip komutu

-Text dosyalarini scan..endscan ile dolsamazsin (eger bir dosyaya almadiysan)
-Text dosyasinda scatter memvar olmaz
-Bir tabloda

append blank
replace ...
skip

dersen dosya sonuna eglirsin. Ondan sonraki replaceler hicbir is yapmaz ve skipler hata verir.

cetinbasoz's Website

3 Cevaplayan astronot

  • astronot
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 06.03.2007
  • İleti: 58

Re: skip komutu

text dosyasını bir table içerisine aldım. (tablo1 olarak) tablo1'i scan endscan ederek satırları dolaşıp,  tablo 4 te ilgili yere atmak istiyorum.

astronot's Website

4 Cevaplayan birol Son düzenleyen, birol (16.07.2008 14:21:35)

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

Re: skip komutu

SELECT tablo4
APPEND BLANK
replace unv WITH rtrim(m.alan)

yaptıktan sonra, SKIP 1 yapmadan önce, SELECT tablo1 yapmak gerekiyor.


Çetin hocanın tabloyla ilgili söylediklerini de dikkate alman gerekiyor.

5 Cevaplayan ercan

  • ercan
  • Uzman Üye
  • Offline
  • Yer: adana
  • Kayıt Tarihi: 07.10.2006
  • İleti: 203

Re: skip komutu

kısacası şu
------------
skip 1 in tablo1

6 Cevaplayan cetinbasoz Son düzenleyen, cetinbasoz (16.07.2008 16:33:00)

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

Re: skip komutu

O zaman soyle bir kod belki olur:

Visual Fox Pro
select tablo1

SCAN

    IF AT("ÜNYVERSYTESY",tablo1.alan)>0 then

        unv = tablo1.alan

        skip

        fakulte = tablo1.alan

        skip

        scan while isdigit(tablo1.alan)

            kod = left(tablo1.alan, 7)

            insert into tablo4 (unv,fakulte,kod) values (m.unv,m.fakulte,m.kod)

        endscan

        skip -1

    ENDIF

ENDSCAN

cetinbasoz's Website

7 Cevaplayan astronot

  • astronot
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 06.03.2007
  • İleti: 58

Re: skip komutu

çok teşekkürler... bu kod işimi gördü

astronot's Website