AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

metinden enter karakterini çıkar

14/11/2012, 15:44

accessman

Kod:
Dim str As String
Do
'ilk karakterden itibaren tükçe karakter kontrol et
    ilk_karakter = 1
    max_karakter = 139
    eklenti = ""
    tara = 1
    Do
        parca = Mid(not1, tara, 1)
        
        If parca = vbCrLf Then
              str = Replace(str, vbCrLf, "", 1)
              MsgBox "enter"
        End If
        
        eklenti = eklenti & parca
        tara = tara + 1
    Loop Until tara >= max_karakter

    eklenti = Left(eklenti, InStrRev(eklenti, " "))
    not2 = eklenti
    son_eklenti = Len(eklenti)
    son_not = Right(not1, Len(not1) - son_eklenti)
    not3 = not1
    not1 = son_not

    DoCmd.RunSQL "INSERT INTO sms_yaz ( sms ) SELECT [Formlar]![Form1]![not2] AS Deyim1;"
    sms_yaz.Requery

Loop Until Len(son_not) < 140
bu kod ile metni 140 karakterlik parçalara bölüyorum
son kelime yarım kalıyorsa bir önceki kelimede kesiyor
ama yapamadığım şu
eğer metinde bir sonraki satıra geçiren vbCrLf varsa
bunu kaldırıp " " boşluk ile değişitrmek istiyorum
ama
If parca = vbCrLf Then
satırı çalışmıyor
bunu nasıl ifade edebilirim
teşekkürler
14/11/2012, 17:33

accessman

kodun doğrusu bu imiş
Kod:
Private Sub Komut19_Click() 'twitter
Dim str As String
Dim ekle As Boolean
Dim say As Integer

Do
    ilk_karakter = 1
    max_karakter = 140
    eklenti = ""
    tara = 1
    say = 1
    Do
        parca = Mid(not1, tara, 1)
        
        If parca <> Chr(10) And parca <> "" Then
            eklenti = eklenti & parca
            say = say + 1
        End If
        
        If parca = Chr(10) Then eklenti = eklenti & " "

        tara = tara + 1
    
    Loop Until say = max_karakter

If Right(eklenti, 1) <> " " Then
    eklenti = Left(eklenti, InStrRev(eklenti, " "))
End If
    
    not2 = eklenti
    son_eklenti = Len(eklenti)
    son_not = Right(not1, Len(not1) - son_eklenti)
    not3 = not1
    not1 = son_not

Loop Until Len(son_not) < 141