[Karakan]

merhabalar,
cok uzun yazılar olan sayfalarda kullanılmak üzere kayıt girilirken { pagebreak } gibi bi yazı ekleyip,veriyi sayfaya yazdırırken { pagebreak } gelen yerlerde sayfayı bölmek istiyorum,ve devamı için "Sonraki Sayfa" gibi bir link cıkartmak istiyorum..PHP de yapılmı bi kaç örnegini gördüm ama ASP ile nasıl yapabiliriz?

[Anticapital]

Bununla ilgili yazdığım bir fonksiyon vardı ve oldukça basit ve işlevli bir kullanımı var hdd min derinliklerinden bulabilirsem yazarım buraya.

Şimdilik kullandığım mantığı yazayım;
Metni Split fonksiyonu ile sayfa kesme ifadesi bulunan yerlerden Array şekline çevirip querystring verisine göre görüntülemek. Ve tabi querystring verisi oluşturacak şekilde 1-2-3.. diye sayfa linkleri oluşturmak.

[Karakan]

1-2-3 degilde .. ben aslında { pagebreak } den sonra gelen ilk 3 kelimeyi mesela

forum Zoque....
gibi linklemek istiyorum..yada kasmadan "Sonraki Sayfa" linki direk..umarım bulabilirsin fonksiyonu (:

[Skeleton]

Şöyle bir şeyler olsa gerek:

Function MetinBol(sMetin)
    bolumler = Split(sMetin, "{ pagebreak }")

    MetinBol = bolumler(0) & "<a href=""#"">Sonraki Sayfa</a>"
End Function

BolunecekMetin = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua."

BolunecekMetin = BolunecekMetin & vbCrLf & vbCrLf & "{ pagebreak }" & vbCrLf & vbCrLf

BolunecekMetin = BolunecekMetin & "Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."

BolunmusMetin = MetinBol(BolunecekMetin)

[Karakan]

@Skeleton

ikinci bölümü nasıl gösterebilirim ? zaten metin recordset e alınmıs durumda ondan ayıklayacagım { pagebreak }işaretini..birde iki bölümden de fazla olabilir yani kaç { pagebreak } koyarsam

[absconder]

Function MetinBol(sMetin, sayfa)
    bolumler = Split(sMetin, "{ pagebreak }")

    MetinBol = bolumler(sayfa-1) & "<a href="""& request.servervariables("SCRIPT_NAME") &"?sayfa="& (sayfa+1) &""">Sonraki Sayfa</a>"
End Function

BolunecekMetin = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua."

BolunecekMetin = BolunecekMetin & vbCrLf & vbCrLf & "{ pagebreak }" & vbCrLf & vbCrLf

BolunecekMetin = BolunecekMetin & "Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."

busayfa= request("sayfa")
if Not IsNumeric(busayfa) then busayfa= 1

BolunmusMetin = MetinBol(BolunecekMetin, busayfa)

ayni mantıkla önceki sayfayı da yapabilirsiniz... maksimum ve minimum sayfaları hesaplamayı unutmayın

[Karakan]

@absconder
önceki sayfayı da ekledim kodlara bakarak çok teşekkürler

[Skeleton]

@absconder: Çok güzel yazmışsın

Bir metnin kaç bölümden oluştuğunu bulmak istersen de şunu kullanabilirsin:

Function BolumSayisi(sMetin)
    bolumler = Split(sMetin, "{ pagebreak }")

    BolumSayisi = UBound(bolumler) + 1
End Function

' Kullanimi
BolunecekMetin = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua."

BolunecekMetin = BolunecekMetin & vbCrLf & vbCrLf & "{ pagebreak }" & vbCrLf & vbCrLf

BolunecekMetin = BolunecekMetin & "Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."

ToplamBolumSayisi = BolumSayisi(BolunecekMetin)