Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Veritabanı, Tablo, View, Index ve SQL Syntax » Memo alanda Enter azaltma
Arkadaşlar merhaba,
Memo alan içinde gereksiz basılmış Enter'ları azaltmak amacıyla aşağıdaki satırı yazdım ama olmadı.
REPLACE deneme WITH STRTRAN(deneme,CHR(13)+CHR(13),CHR(13))
Her 2 Enter basışını tek Enter ile değiştirmek istedim ama yapmadı. Normal harfleri değiştirebiliyor ama Enter için aynı işlem olmuyor.
Ne/Nasıl yapmam konusunda fikri olan var mı ?
Teşekkürler.
Bir memoda [ENTER] chr(13), chr(10) ya da chr(13)+chr(10) seklinde olabilir.
Create Cursor test (Id i, testMem m)
Insert Into test (Id, testMem) Values (1, 'a' + Replicate(Chr(13),10) + 'b' + Replicate(Chr(13),10) + 'c')
Insert Into test (Id, testMem) Values (1, 'a' + Replicate(Chr(10),10) + 'b' + Replicate(Chr(10),10) + 'c')
Insert Into test (Id, testMem) Values (1, 'a' + Replicate(Chr(13)+Chr(10),10) + 'b' + Replicate(Chr(13)+Chr(10),10) + 'c')
Locate
Modify Memo testMem Nowait
Browse && nasil olduguna bak
****** ENTER sayisini teke indir
****** Memo oldugundan icinde chr(0) olmadigini kabul ediyoruz
replace testMem with TekEnter(testMem) all
Locate
Modify Memo testMem Nowait
Browse last && nasil olduguna bak
Function TekEnter(tcString)
tcString = Chrtran(m.tcString,Chr(13)+Chr(10),Chr(0)+Chr(0))
Do While Occurs(Chr(0)+Chr(0), m.tcString) > 0
tcString = Strtran(m.tcString, Chr(0)+Chr(0), Chr(0))
Enddo
Return Strtran(m.tcString, Chr(0), Chr(13)+Chr(10))
Endfunc
Aklım almadı ama oldu 
Teşekkürler hocam.
Önce sorunumu hallettin, sonra satır satır inceleyince anladım.
Süpersiniz.
fox4um » Veritabanı, Tablo, View, Index ve SQL Syntax » Memo alanda Enter azaltma