tablodan tabloya veri atmak (Sayfa 5 / 5)

birde mesajboxta bir rakamı ondalıklı ve noktanı olarak görüntületemezmiyiz.

mesela xxx=2365123345,75 sayısını str(xxx) deyince 2365123346 şeklinde gösteriyor hem yuvarlıyor hem virgül  sonrası yok

ben 2.365.123.345,75 şeklinde görmek istiyorum

uğur bey gene olmadı neden anlamadım ama message boxta gene aynı şekilde gösterdi
LOCAL lnSayi
m.lnSayi = 2365123345.75
?TransForm(m.lnSayi, "999,999,999,999.99")
messagebox(str(m.lnSayi),64,'deneme')

deyince gene 2365123346 gösteriyor

Birde ayrıca STR kullanıyorken, Kesir hanesini ve uzunluk bilgisini verebilirsin :

LOCAL lnSayi 

m.lnSayi = 2365123345.75 

?TransForm(m.lnSayi, "999,999,999,999.99") 

Messagebox(Str(m.lnSayi,13,3) ,64,'STR() -> Formatı')

Moderom;

Ben senin yerinde olsam; bu konuda soruyu şöyle sorardım :

Şu şekilde bir tablom var :
( Burda Tablo yapısını bir script ile buraya yapıştırırdım.  Sana yardımcı olmak isteyen herkes script i çalıştırıp tablo yapısını otomatik olarak oluştururdu. )

Şöyle bir sonuç elde etmek istiyorum :
( Bu kısımda Notepad ile istediğim sonucu düzenli görünen bir şekilde doğrudan buraya kopyala - yapıştır yapardım;
YADA
Excel ile bir sayfa oluşturup hücreleri olmasını istediğim gibi doldurur; ekranın görüntüsünü JPG olarak kaydeder;  ve internet üzerinde bir link verirdim
YADA
Geçici bir cursor oluşturur; istediğim sonuçları tek tek içine atardım)

Kimi zaman soruyu anlamak; cevap yazmaktan gerçekten daha zor. Çünkü sen soru sormadan önce gerçekten üzerinde çalıştığın her şeyi biliyorsun. Ama biz sorduğun konu ile ilgili olarak hiç bir bilgiye sahip değiliz.  Bize fikir gösterebilecek tek şey senin açıklamaların yada buraya yapıştırdığın KOD örnekleri.

Transform örneğinde sorun gayet açık ( ne istediğin tamamen anlaşılıyor. Ama o "?? " ile sorduğın kısım ile ilgili inan hiç bir şey anlamadım.

Nasıl gülmeyelim karadeniz fıkralarını aratamayacak bir fıkra çıkar bundan

birde uğur bey script ile tablo yapısını alma nasıl oluyor acaba:)

http://www.fox4um.com/post/843/#p843

Birde aşağıdaki linki baştan sonra okumanı tavsiye ederim:
http://www.fox4um.com/topic/167/yeni-ba … -icin-vfp/

* SampleData2Text.prg

* Author: Cetin BASOZ

Lparameters tcTableName,tnRecords

Use (m.tcTableName) In 0 Alias 'sampling'

Select 'sampling'

Local lcTemp, ix, lcData, lcRetVal

lcTemp = Sys(2015)+'.tmp'

If !Empty(m.tnRecords) And Type('m.tnRecords') = 'N'

  Copy To (m.lcTemp) Type Delimited Next m.tnRecords

Else

  Copy To (m.lcTemp) Type Delimited

Endif

lcData = Filetostr(m.lcTemp)

Erase (m.lcTemp)

 

Set Textmerge Delimiters To '%%','%%'

Set Textmerge To (m.lcTemp) Noshow

Set Textmerge On

\CreateCursor_%%m.tcTableName%%()

\

\Procedure CreateCursor_%%m.tcTableName%%

\LOCAL lcData, lcTemp

\lcTemp = SYS(2015)+'.tmp'

\TEXT TO m.lcData noshow

\%%m.lcData%%

\ENDTEXT

\

\STRTOFILE(m.lcData,m.lcTemp)

\

\create CURSOR %%m.tcTableName%% ;

\ ( ;

For ix=1 To Afields(aStruc,'sampling')

\  %%IIF(m.ix > 1,',','')%%

\\%%aStruc[m.ix,1]%% %%aStruc[m.ix,2]%%(%%aStruc[m.ix,3]%%,%%aStruc[m.ix,4]%%)

\\ %%IIF(aStruc[m.ix,5],'',' NOT ')%% NULL

\\ %%IIF(aStruc[m.ix,6],'NOCPTRANS','')%% ;

Endfor

\  )

\

\APPEND FROM (m.lcTemp) TYPE delimited

\ERASE (m.lcTemp)

\endproc

Set Textmerge To

Set Textmerge Off

Set Textmerge Delimiters

lcRetVal = Filetostr(m.lcTemp)

Erase (m.lcTemp)

Use In 'sampling'

Return m.lcRetVal

Yukarıdaki kodu bilgisayarında DBF lerinin olduğu kısma
"SampleData2Text.PRG" adı ile kaydet.

Sonra Command Windows a şunu yazıp ENTER a bas :

SampleData2Text WITH "Personel", 20

BuşŞekilde "PERSONEL" tablondaki ilk 20 kaydı örnek olarak hafızaya almış olursun.
Eğer Herhangi bir metin editöründe; yada foruma bir yazı yazıyorken
"CTRL+V" YE basarsan; Tablo örneğini oluşturan kodu ("script" kullanımı için pardon.) buraya yapıştırmış olursun...

uğur bey teşekkürler denyeyim bakalım alacağım sonuç ne olacak

Moderom, bendeki Versiyon VFP9 Sp2 ?

Sendeki ?