metinden enter karakterini çıkar
Tarih
14/11/2012 15:44
Konu Sahibi
accessman
Yorumlar
1
Okunma
1382
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
kodun doğrusu bu imiş

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü enter tuşu ergunarslan 18 2.545 18/07/2014, 20:29 atoz112
Çözüldü Formdaki Not alanı Enter hareketi Ömer 64 2 884 26/05/2014, 21:51 Ömer 64
Çözüldü Enter Tuşu Davranışı akdemir1 10 1.744 20/04/2014, 19:18 akdemir1
Çözüldü listeye çoklu ekle çıkar kaydet mhmtogz 18 3.451 26/05/2013, 21:19 mhmtogz
Çözüldü açılan kutudan listeye ekle çıkar mhmtogz 3 1.094 17/05/2013, 19:22 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya