Skip to main content

AccessTr.neT


metinden enter karakterini çıkar

metinden enter karakterini çıkar

Çözüldü #1
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
@benbendedeilem
Cevapla
Çözüldü #2
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

@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da