asp uzun metinde al...
 
Bildirimler
Hepsini Temizle

asp uzun metinde alt satıra geçiş  

serdaratacan
(@serdaratacan)
Üye

arkadaşlar asp arıza kayıt yaptım. yapılan iş kısmı var . burada  metin uzun oldugunda ;

yapılan iş:

ccccccccccccccccccccccccc......   seklinde düz bir şekilde uzayıp gidiyor .bunu nasıl  belli bi karakterden sonra alt satıra geçmesini sağlayabiliriz yardımcı olurmusunuz. 

Alıntı
Topic starter Gönderildi : 18/11/2011 12:37
Ugur DASDEMIR
(@ugurdasdemir)
Tecrübeli Üye

Soruyu  daha açık yazabilirseniz , net yanıtlar alırsınız

CevapAlıntı
Gönderildi : 18/11/2011 19:54
Ragıp ÜNAL
(@RagipUNAL)
Üye

[quote user="serdaratacan"]

arkadaşlar asp arıza kayıt yaptım. yapılan iş kısmı var . burada  metin uzun oldugunda ;

yapılan iş:

ccccccccccccccccccccccccc......   seklinde düz bir şekilde uzayıp gidiyor .bunu nasıl  belli bi karakterden sonra alt satıra geçmesini sağlayabiliriz yardımcı olurmusunuz. 

[/quote]

İyi günler

bu uzun yazıyı böldürmek çare olmaya bilir. bence text yazısının her satır için bölmende fayda var diye düşünüyorum. yada belli karakteri geçen kelimeleri x karakter sayısını böl gibi birşey yapmanda olabilir.

Önce yazının tamamnı kelimelere ayır, yani sözlüğe yüklemedir bu işlem (Pythonda böyleydi). Daha sonra her kelimenin karakterini saydır. Eğer de X karakteri geçiyorsa böl de. Ama 2 ye bölmekte yetmeyebilir. İlk bölmeden sonra kalan kelimede bölünmesi gereken karakter varsa tekrar böl. Sonra sırasıyla yazdır.

Bu iş için yazıdaki boşluk karakterini kullanarak split yapın. Daha sonra yazıdaki kelime sayısını bul. Daha sonra len ile kelimedeki karakter sayısını bul. akabinde kelimesayısını istdiğin kelime sayısına göre replace et. sonra tekrar yazdır.

 
 
 
 
 
 
 
yazi = "Çözümparkta sorularınız çözümsüz kaaaaaaaaaaaaaaaaaaaaaaaaaaaaaalmaz."
yaziParcala = Split(yazi," ")
yaziAdeti = Ubound(yaziParcala)
maxkarakter = 10
 
for i = 0 to yaziAdeti
if  len(yaziParcala(i)) => maxkarakter then
 
yaziParcala(i) = mid(yaziParcala(i),1,maxkarakter) &" " & mid(yaziParcala(i),(maxkarakter+1),len(yaziParcala(i)))
 
end if

Response.Write yaziParcala(i) & " "

next
 
sanırım böyle birşey işini görür. yazdım ama denemeye fırsatım olmadı bir dene derim.

 

CevapAlıntı
Gönderildi : 19/11/2011 00:46
Paylaş: