- Katılım
- 29 Mar 2009
- Konular
- 695
- Mesajlar
- 2,980
- Reaksiyon Skoru
- 121
- Altın Konu
- 1
- TM Yaşı
- 17 Yıl 2 Ay 18 Gün
- Başarım Puanı
- 175
- MmoLira
- 3
- DevLira
- 0
ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!
VB6.0 kullaniyorsaniz Replace Function ise yarar:
Text2 = Replace(Text1, vbCrLf, "" & vbCrLf)
Diger VB'lerde vbCrLf'leri bulmak için asagidaki kod kullanilir:
Dim sString As String
Dim sNewString As String
sString = Text1
While Instr(sString, vbCrLf)
sNewString = sNewString & Left(sString, _
Instr(sString, vbCrLf) - 1) & "" & vbCrLf
sString = Mid(sString, Instr(sString, vbCrLf) + 2)
Wend
Text2 = sNewString
Text2 = Replace(Text1, vbCrLf, "" & vbCrLf)
Diger VB'lerde vbCrLf'leri bulmak için asagidaki kod kullanilir:
Dim sString As String
Dim sNewString As String
sString = Text1
While Instr(sString, vbCrLf)
sNewString = sNewString & Left(sString, _
Instr(sString, vbCrLf) - 1) & "" & vbCrLf
sString = Mid(sString, Instr(sString, vbCrLf) + 2)
Wend
Text2 = sNewString
