Bilgisayar Bölümü ASP Kod ve Script Arşivi


Uzun kelimeleri ayırma

Dim GELEN_KELIME, AYR_KELIME
    GELEN_KELIME    ="MerhaBA ÇOKKKKKKMMMMMMLLMMMMMMMLÝLEMUKEÝAMLYUÝEKAYUMLÝEAK"
    AYR_KELIME        = 15

    Function METINBOL(GELEN)
        MARRAY        = SPLIT(GELEN, " ") : TOPKELIME    = UBound(MARRAY,1)
        For I = 0 To TOPKELIME
            KUZUN = Len(MARRAY(I))
            If KUZUN > AYR_KELIME Then
                BAS = 1 : BIT = AYR_KELIME
                For J = 1 To (KUZUN/AYR_KELIME)+1
                    RESPONSE.Write MID(MARRAY(I),BAS,BIT) & " "
                    BAS = BAS + AYR_KELIME : If BIT + AYR_KELIME < AYR_KELIME Then BIT = BIT + AYR_KELIME Else BIT = AYR_KELIME
                Next
            Else
                RESPONSE.Write MARRAY(I) & " "
            End If
        Next
    End Function





Kullanımı:

Code:

<% METINBOL(GELEN_KELIME) %>

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2020 Bilgisayarbolumu.com