Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » bir field deki ayni verileri bulmak
Herkeze iyi gunler,
Elimdeki tabloda karakter tipinde bir field var. Amacim, bu field icindeki ayni degerli verileri bulmak ve herhangi bir sembol ve ya harf ekleyerek ayni degerli verileri farklilastirmak. Bunu nasil yapabilirim.
SELECT CNT(*),isim FROM test GROUP BY isim
sonra da 1 olanlar hariç diğerlerini tara ve update et. bunu tek bir select komutuyla da yapabilecek olan vardır belki ama benden bu kadar ancak...
tesekkur ederim
Eminim daha duzgun bir yolu vardir ama bunu yapabildim.
Tekrarlayan veri basina kacinci tekrarlayan veri olduguna bagli olarak, sonuna bu _1, _2, _3 ... numaralari ekliyor.
Create Cursor test1 ( names c (20))
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ayse")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("mehmet")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("timur")
Insert Into test1 (names) Values ("timur")
Insert Into test1 (names) Values ("cemal")
browse
Select Cnt(*) As county, names ;
From test1 ;
Group By names ;
INTO Cursor CountAll
Select * From CountAll ;
Where county > 1 ;
Into Cursor RepeatOnes
Scan
licounty = RepeatOnes.county
lcnames = RepeatOnes.names
Select test1
Go Top
ix = 0
Scan
lcasd = test1.names
If Alltrim(m.lcasd) = Alltrim(m.lcnames)
m.ix = m.ix + 1
Replace names With (Alltrim(m.lcnames)+"_"+Transform(m.ix))
Endif
Endscan
Endscan
SELECT test1
browse
Herkeze iyi gunler,
herhangi bir sembol ve ya harf ekleyerek ayni degerli verileri farklilastirmak.
Eğer amaç sadece aynı değerleri farklılaştırmak ise basit bir replace iş görebilir. Tabi senin yazdığın koddaki gibi bir 1 den başlayarak artan sıralı düzen aramamak kaydıyla.
Replace Names With Alltrim(Names) + '_' + Alltrim(Str(Recno())) ALL
BROWSE
RETURN
Bu sekilde sirali yapmak ve ya sadece tekrarlayanlari farklilastirmak da daha kolay gibi.
Bole cok daha rahat oldu 
Sadece tekrarlilari farklilastirmak icin:
Create Cursor test1 ( Names_ID N(4), names c (20))
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ayse")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("durmus")
Insert Into test1 (names) Values ("alper")
Insert Into test1 (names) Values ("gungor")
Insert Into test1 (names) Values ("mustafa")
Insert Into test1 (names) Values ("ugur")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("timur")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("timur")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("cemal")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("erdal")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("Hakan")
Insert Into test1 (names) Values ("Hakan")
Insert Into test1 (names) Values ("Hakan")
Insert Into test1 (names) Values ("ali")
Insert Into test1 (names) Values ("ali")
browse
Scan
Replace Names_ID With Recno()
Endscan
Scan
liid = test1.Names_ID
lcnames = test1.names
Select * From test1 Where names = m.lcnames Into Cursor countrepeat
If Reccount("countrepeat") > 1
Select test1
Replace names With Alltrim(m.lcnames)+"_"+Transform(m.liid)
Endif
Endscan
Select test1
Browse
O halde bu daha kısası
SELECT * FROM Test1 ORDER BY Names ASC INTO CURSOR CrsTemp READWRITE
LOCAL lcNames, lcPrevNames, lnCounter
lnCounter = 0
lcNames = ""
lcPrevNames = ""
SCAN
IF ;
lcNames = CrsTemp.Names AND ;
Len(Alltrim(lcNames)) = Len(Alltrim(CrsTemp.Names)) AND ;
Recno() > 1
lcNames = CrsTemp.Names
Replace Names WITH Alltrim(Names) + '_' + Alltrim(Str(lnCounter))
lnCounter = lnCounter + 1
ELSE
lcNames = CrsTemp.Names
lnCounter = 1
ENDIF
ENDSCAN
BROWSE
RETURN
cok tesekkur ederim, tam olarak bole bir kod yapmaya calisiyordum.
Maksat spor olsun:)
SELECT ;
PADR(RTRIM(names)+IIF(sayi = 0,'',PADL(sayi,3)), 25) as siraliname ;
FROM ;
( SELECT names, ;
(select COUNT(*) from test1 t2 ;
where t2.names == t1.names and t2.names_id < t1.names_id) as Sayi FROM ;
test1 t1 ) tmp
Hehe Çetin yine son noktayı koymuş...
Süper...
cok tesekkur ederim cetin abi
fox4um » Kodlama ve Komutlar » bir field deki ayni verileri bulmak