[code]
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, "
|