dos foxpro2.6 hakkında yardım.

**SAROS** · 30.11.2006 11:05:16

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Konu: dos foxpro2.6 hakkında yardım.

Arkadaşlar ismim Ahmet herkese merhaba dos altında çalışan foxpro2.6 programını işçi ücretlerini hesaplamada kullanıyorum. İşlerimi yapmak için amatör sayılacak derecede program yazıyorum.

.DBF dosyasını .TXT formatına çeviriyorum ama diyelimki data.txt dosyasını

MODI COMM data.txt açtığımda .txt dosyasının en üst satırında 1 satır boşluk kalıyor. Bilgiler 2 nci satırdan başlıyor. txt dosyasında bu boş satırın oluşmaması için programıma nasıl bir komut ilave etmeliyim. Teşekkür ederim.

şeklinde görünüyor.
________________________________________
boş satır
xxxxxxxxxx xxxx xxxxxxxxx xxxxxxxx
xxxxxxxxxx xxxx xxxxxxxxx xxxxxxxx
xxxxxxxxxx xxxx xxxxxxxxx xxxxxxxx
xxxxxxxxxx xxxx xxxxxxxxx xxxxxxxx

**metin** · 30.11.2006 11:58:38

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: dos foxpro2.6 hakkında yardım.

ilk kaydın boş heralde. yoksa boş satır oluşmazdı.

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

**SAROS** · 30.11.2006 13:12:42

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

Metin bey teşekkür ederim. İlk kaydım boş deil. Size incelemeniz için PRG sini gönderebilirim.

**cetinyasar** · 30.11.2006 14:00:30

cetinyasar
Uzman Üye
Offline

Yer: İstanbul
Kayıt Tarihi: 09.10.2006
İleti: 116

Re: dos foxpro2.6 hakkında yardım.

Eğer TEXTMERGE kullanarak kayıtları listeliyorsan ilk başladığın satır \ yerine \\ olması gerekiyor.

**SAROS** · 30.11.2006 15:54:16

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

cetinyasar arkadaşım çok saol ama olmuyor.
SET ALTERNATE TO NORM10.TXT
SET HEADING OFF
SET ALTERNATE ON
komutlarını kullanıyorum.

**cetinbasoz** · 30.11.2006 20:35:30

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: dos foxpro2.6 hakkında yardım.

Alternate foxpro2.xten de eski ve kullanma. Set textmerge ya da copy to kullan.

**SAROS** · 01.12.2006 08:25:55

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

Çetin arkadaşım çok sağolasın deniyeceğim.

**SAROS** · 01.12.2006 11:57:27

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

Beceremedim arkadaşlar amatör,acemilik ne derseniz deyin.

**cetinbasoz** · 01.12.2006 12:28:54

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: dos foxpro2.6 hakkında yardım.

Ya tamam biz yardim edelim de tam olarak nasil bir formattan nasil bir formata cevrim gerektigi belli degil. Text dosyasini alacak program ne?

Copy to deneme.txt type sdf

isini goruyor mu mesela?

textmerge kullanirsan:

set ttextmerge to deneme.txt noshow
set textmerge on
scan
\\Kayit No:<<recno()>>
\\<<tablo.FieldAdi1>>
\\ <<tablo.FieldAdi2>>
\\ Buraya duz sabit text de yazabilirsin
\
endscan
set textmerge to
set textmerge off

**cetinyasar** · 01.12.2006 13:39:34

cetinyasar
Uzman Üye
Offline

Yer: İstanbul
Kayıt Tarihi: 09.10.2006
İleti: 116

Re: dos foxpro2.6 hakkında yardım.

Bencede sen en iyisi yazdığın VFP kodunu gönder onun üzerinden yardımcı olmaya çalışalım.

**SAROS** · 01.12.2006 15:44:05

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

Çetin arkadaşım ilgilendiğin için çok sağolasın forumun ilk başında hangi programı kullandığımı ve data uzantılarını yazmıştım. DOS altında çalışan FOXPRO2.6 kullanıyorum
data dostası uzantısı .DBF Program uzantısı .PRG

şöyle diyeyim BORDRO.DBF yi BORDRO.TXT formatına nasıl çeviririm bu BORDRO.TXT yi EXCEL de bilgi alması için kullanıyorum.

**metin** · 01.12.2006 16:12:26

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: dos foxpro2.6 hakkında yardım.

excel .dbf dosyalarını zaten direk açar ki...

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

**cetinbasoz** · 01.12.2006 17:27:56

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: dos foxpro2.6 hakkında yardım.

Fox26 vs kisimlarini zaten soyledin de EXCEL gerekli bilgiydi:)
Excel Metinin dedigi gibi fox2x dosyasini dogrudan acar ve zaten VFPde bile Excel'e aktarmak icin onerilen yollardan birisi fox2x tipinde dbf saklamak:)
Text yoluyla yapmak istersen (basliklar yok):
copy to data.csv type delimited && csv uzantisi explorerda dogrudan Excel dosyasi gibi gorunup cift klikle acilmasi saglar

**river** · 02.12.2006 21:24:49

river
Uzman Üye
Offline

Kayıt Tarihi: 22.11.2006
İleti: 105

Re: dos foxpro2.6 hakkında yardım.

Uzun bir yol ama bir incele istersen

myhandle = FCreate("Bordro.Txt")
If myHandle < 0
WAIT WIND "Txt dosyası yaratılamadı."
CANCEL
EndIF
CRLF = Chr(13)+Chr(10)
myDelimeter = " "
Select Bordro
Go Top
Do While !Eof()
= FWrite(myHandle,Bordro.Alan1+myDelimeter) && Char alan
= FWrite(myHandle,Tran(Bordro.Alan2,"###,###")+myDelimeter) && Num alan
= FWrite(myHandle,DToC(Bordro.Alan3)+myDelimeter) && Tarih alanı
*/.....
SKIP
EndDo
= FClose(myHandle)

Burada myDelimeter = " " yerine TAB yani myDelimeter = Chr(9) dersen bu kez TAB DELIMETED olarak excele alabilirsin.
Umarım işine yarar. Kolay gelsin.

**river** · 02.12.2006 21:28:15

river
Uzman Üye
Offline

Kayıt Tarihi: 22.11.2006
İleti: 105

Re: dos foxpro2.6 hakkında yardım.

ÖZÜR deminki kod içinde

SKIP
EndDo

yerine lütfen şu satırı da ekle.

= FWrite(myHandle,CRLF)
SKIP
EndDo

Bu satır atlamasını sağlar.

**SAROS** · 04.12.2006 09:49:41

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

Cevap yazan arkadaşlara çok teşekkür ederim. cetinbasoz arkadaşımın texmerge komutu bu sorunumu çözdü. Çetin arkadaşım field alanlar arasında 1 boşluk nasıl bırakabilirim. Bunu içinde bir komut yazabilirmisin.

**SAROS** · 04.12.2006 10:06:35

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

cetinbasöz arkadaşım aşağıdaki komut işimi gördü sizcede uygundur.

\\ <<" ">>

Foruma katılıp cevap veren arkadaşlara sonsuz teşekkür ederim.

**SAROS** · 04.12.2006 14:48:56

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

river arkadaşımada çok teşekkür ederim.Bir işin birçok yolu olduğunu öğrendim. Programınızı kendime uyarladım ve işimi yaptım.
------------------------------------------------------------------------------
clea
myhandle=FCreate("norm10.txt")
If myHandle < 0
WAIT WIND "Text dosyas yarat lamad ."
CANCEL
EndIF
CRLF= Chr (13)+Chr(10)
myDelimeter=" "
USE ISYERI
= FWrite (myHandle,IS_SICIL+myDelimeter)
= FWrite (myHandle,KONT_NO+myDelimeter)
= FWrite (myHandle,ARAC_NO+myDelimeter)
= FWrite (myHandle,UNVAN+myDelimeter)
= FWrite (myHandle,ADRES+myDelimeter)
= FWrite (myHandle,VERGI_NO+myDelimeter)
= FWrite (myHandle,DON_YIL+myDelimeter)
= FWrite (myHandle,DON_AY+myDelimeter)
= FWrite (myHandle,MAHIYET+myDelimeter)
= FWrite (myHandle,CRLF)
USE PERSONEL
Go Top
Do While !Eof()
= FWrite (myHandle,BELGE_TUR+myDelimeter)
= FWrite (myHandle,KANUN_NO+myDelimeter)
= FWrite (myHandle,STR(S_SICIL,13)+myDelimeter)
= FWrite (myHandle,STR(TCK_NO,11)+myDelimeter)
= FWrite (myHandle,AD+myDelimeter)
= FWrite (myHandle,SOYAD+myDelimeter)
= FWrite (myHandle,ILK_SOY+myDelimeter)
= FWrite (myHandle,STR(PEK,18,2)+myDelimeter)
= FWrite (myHandle,STR(GUN,2)+myDelimeter)
= FWrite (myHandle,G_GUN+myDelimeter)
= FWrite (myHandle,C_GUN+myDelimeter)
= FWrite (myHandle,STR(UIG,2)+myDelimeter)
= FWrite (myHandle,STR(UIPEK,11,2)+myDelimeter)
= FWrite (myHandle,EGN+myDelimeter)
= FWrite (myHandle,ICN+myDelimeter)
= FWrite (myHandle,CRLF)
SKIP
EndDo
= FClose(myHandle)
CloseAll
-----------------------------------------------------------------------------------

CLEA
SET TALK OFF
SET ECHO OFF
SELE 1
USE ISYERI
SELE 2
USE PERSONEL
SET TEXTMERGE TO NORM10.TXT NOSHOW
SELE 1
SET TEXTMERGE ON
\\<<IS_SICIL>>
\\<<" ">>
\\<<KONT_NO>>
\\<<" ">>
\\<<ARAC_NO>>
\\<<" ">>
\\<<UNVAN>>
\\<<" ">>
\\<<ADRES>>
\\<<" ">>
\\<<VERGI_NO>>
\\<<" ">>
\\<<DON_YIL>>
\\<<" ">>
\\<<DON_AY>>
\\<<" ">>
\\<<MAHIYET>>
\
SELE 2
SCAN
\\<<BELGE_TUR>>
\\<<" ">>
\\<<KANUN_NO>>
\\<<" ">>
\\<<STR(S_SICIL,13)>>
\\<<" ">>
\\<<STR(TCK_NO,11)>>
\\<<" ">>
\\<<AD>>
\\<<" ">>
\\<<SOYAD>>
\\<<" ">>
\\<<ILK_SOY>>
\\<<" ">>
\\<<STR(PEK,18,2)>>
\\<<" ">>
\\<<STR(GUN,2)>>
\\<<" ">>
\\<<G_GUN>>
\\<<" ">>
\\<<C_GUN>>
\\<<" ">>
\\<<STR(UIG,2)>>
\\<<" ">>
\\<<STR(UIPEK,11,2)>>
\\<<" ">>
\\<<EGN>>
\\<<" ">>
\\<<ICN>>
\
ENDSCAN
SET TEXTMERGE TO
SET TEXTMERGE OFF
CLOSE ALL
CLEA

**river** · 04.12.2006 14:56:07

river
Uzman Üye
Offline

Kayıt Tarihi: 22.11.2006
İleti: 105

Re: dos foxpro2.6 hakkında yardım.

işinizi gördüğüne sevindim.
Kolay gelsin

**cetinbasoz** · 04.12.2006 14:58:16

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: dos foxpro2.6 hakkında yardım.

SAROS yazdı:

Cevap yazan arkadaşlara çok teşekkür ederim. cetinbasoz arkadaşımın texmerge komutu bu sorunumu çözdü. Çetin arkadaşım field alanlar arasında 1 boşluk nasıl bırakabilirim. Bunu içinde bir komut yazabilirmisin.

Textmerge'un guzelligi bosluk ve sabit texti istedigin gibi kullanabilmen.

? yerine \
?? yerine \\
kullaniyorsun. << >> arasinda olmayan hersey (bosluklar dahil) senin yazdigin gibi). Ornek:

\Tarih: <<date()>> saat <<time()>>.
\Dosyadaki kayit sayisi reccount() komutuyla bulunur. Su anda acik olan dosyada <<reccount()>>
\\ sayida kayit var.

gibi.

**cetinbasoz** · 04.12.2006 15:01:11

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: dos foxpro2.6 hakkında yardım.

USE PERSONEL
SET TEXTMERGE TO NORM10.TXT NOSHOW
SELE 1
SET TEXTMERGE ON
\\<<IS_SICIL>>
\\<<" ">>
\\<<KONT_NO>>
\\<<" ">>
\\<<ARAC_NO>>
\\<<" ">>
\\<<UNVAN>>
\\<<" ">>
\\<<ADRES>>
\\<<" ">>
\\<<VERGI_NO>>
\\<<" ">>
\\<<DON_YIL>>
\\<<" ">>
\\<<DON_AY>>
\\<<" ">>
\\<<MAHIYET>>
\

Yerine:
USE PERSONEL
SET TEXTMERGE TO NORM10.TXT NOSHOW
SELE 1
SET TEXTMERGE ON
\\<<IS_SICIL>> <<KONT_NO>> <<ARAC_NO>> <<UNVAN>> <<ADRES>> <<VERGI_NO>>
\\ <<DON_YIL>> <<DON_AY>> <<MAHIYET>>
\

Daha kisa.

**cetinbasoz** · 04.12.2006 15:02:25

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: dos foxpro2.6 hakkında yardım.

Bu arada select 1, select 2 komutlar kullanma. Onun yerine acikca dosya aliaslarini yaz:

select Personel
select Bordro

gibi.

**SAROS** · 05.12.2006 13:56:23

SAROS
Üye
Offline

Yer: Gelibolu
Kayıt Tarihi: 29.11.2006
İleti: 11

Re: dos foxpro2.6 hakkında yardım.

Cetin arkadaşım gerekli kısaltmaları yaptım tabiki daha şık oldu çok sağolasın.

dos foxpro2.6 hakkında yardım.

İleti [ 23 ]

1 Konuyu açan SAROS 30.11.2006 11:05:16

Konu: dos foxpro2.6 hakkında yardım.

2 Cevaplayan metin 30.11.2006 11:58:38

Re: dos foxpro2.6 hakkında yardım.

3 Cevaplayan SAROS 30.11.2006 13:12:42 Son düzenleyen, SAROS (30.11.2006 13:16:15)

Re: dos foxpro2.6 hakkında yardım.

4 Cevaplayan cetinyasar 30.11.2006 14:00:30

Re: dos foxpro2.6 hakkında yardım.

5 Cevaplayan SAROS 30.11.2006 15:54:16

Re: dos foxpro2.6 hakkında yardım.

6 Cevaplayan cetinbasoz 30.11.2006 20:35:30

Re: dos foxpro2.6 hakkında yardım.

7 Cevaplayan SAROS 01.12.2006 08:25:55

Re: dos foxpro2.6 hakkında yardım.

8 Cevaplayan SAROS 01.12.2006 11:57:27

Re: dos foxpro2.6 hakkında yardım.

9 Cevaplayan cetinbasoz 01.12.2006 12:28:54

Re: dos foxpro2.6 hakkında yardım.

10 Cevaplayan cetinyasar 01.12.2006 13:39:34

Re: dos foxpro2.6 hakkında yardım.

11 Cevaplayan SAROS 01.12.2006 15:44:05

Re: dos foxpro2.6 hakkında yardım.

12 Cevaplayan metin 01.12.2006 16:12:26

Re: dos foxpro2.6 hakkında yardım.

13 Cevaplayan cetinbasoz 01.12.2006 17:27:56

Re: dos foxpro2.6 hakkında yardım.

14 Cevaplayan river 02.12.2006 21:24:49

Re: dos foxpro2.6 hakkında yardım.

15 Cevaplayan river 02.12.2006 21:28:15

Re: dos foxpro2.6 hakkında yardım.

16 Cevaplayan SAROS 04.12.2006 09:49:41

Re: dos foxpro2.6 hakkında yardım.

17 Cevaplayan SAROS 04.12.2006 10:06:35

Re: dos foxpro2.6 hakkında yardım.

18 Cevaplayan SAROS 04.12.2006 14:48:56

Re: dos foxpro2.6 hakkında yardım.

19 Cevaplayan river 04.12.2006 14:56:07

Re: dos foxpro2.6 hakkında yardım.

20 Cevaplayan cetinbasoz 04.12.2006 14:58:16

Re: dos foxpro2.6 hakkında yardım.

21 Cevaplayan cetinbasoz 04.12.2006 15:01:11

Re: dos foxpro2.6 hakkında yardım.

22 Cevaplayan cetinbasoz 04.12.2006 15:02:25

Re: dos foxpro2.6 hakkında yardım.

23 Cevaplayan SAROS 05.12.2006 13:56:23

Re: dos foxpro2.6 hakkında yardım.

İleti [ 23 ]