Merhaba Arkadaşlar
Vb de textbox içine bir yazıyı paste yaptıgımda yazı içinde enter kodları ya yani yazı yazılırken alt satıra inmek için entere basılmış ya hani. işte bu enter kodu olan 13,10 u bulup nasıl silebilirim.
Saygılar.
instr diye bir komut vardı herhalde.
aradığın karakterin yerini veriyordu. sonrasında left,right veya middle ile kesip kopyalamak kalıyor.
evet instr yi az önce okumuştum bi yerde
peki hocam enteri nasıl arayacagım mesela A karakterını "A" dıye arayabılırım ama Pekı Ya Enter?
'\n' kullanarak denediniz mi?
hiç denemedim ama
instr(metin,vbcr)
yada
instr (metin,vbcrlf)
denediniz mi ?
txtbox.Text = txtbox.Text.Replace(Environment.NewLine.ToString(), "")
o .net te olur.
sorular sanırım vb 60 da
Alıntı yapılan: muhittin_kaplan - 29 Ekim 2011, 22:24:47
hiç denemedim ama
instr(metin,vbcr)
yada
instr (metin,vbcrlf)
denediniz mi ?
muhittin hocam
instr (metin,vbcrlf)
text dekı enterı buluyor fakar şöyle bır sorun var text de bırden cok enter var o nasıl olacak?
evet oda şu ekilde oldu
islem1=instr (1,text1,vbcrlf)
islem2=instr (50,text1,vbcrlf)
seklınde oldu enter kodu da zaten text ıcınde belırlı yerlerde
bu sekılde sanırım bır for dongusu ıle tum enterlerın yerlerını bulabılırım pekı bu enterlerı nasıl sılmem gerek?
şimdi left,mid,len lerle bir algoritma oluşturmanız gerek
Muhittin hocam
sorunu çözemedim
For x = 1 To 300
Mid(Text1, (x * 49), 2) = " "
Next x
seklinde kullandıgımda olmuyor
yani yapamadıgım text1 ın ıcınde enterın yerını bulabılıyorum fakat enterın yerıne bosluk koymak ıstıyorum yada enterın yerını sılmek ıstıyorum burasıını beceremedim ;)
şurayı bir inceleyin.
http://www.visualbasic.happycodings.com/Strings/code12.html
VB 60 la yazmayalı uzun yıllar oldu. bence sizde .net yani 2010 gibi bir versiyona geçin hem bedeva
Vb nın daha acemisiyim. biraz hızlı adımlarla ilerleyip dediginiz gibi .net e geçmek lazım
Hiç Uğraşmayın VB ile doğrudan .net ile başlayın.
replace fonksiyonu istediğiniz işi yapar.
replace (değişken , değiştirilecek, yerinekonacak)
strvar = replace (strvar, vbcr, "" ) veya
strvar = replace (strvar, vblf, "" ) veya
strvar = replace (strvar, vbcrlf, "" )
Dim TestString As String = "Shopping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "o", "i")
demiş bill amca
evet replace komutu ısı cözdu hocam :)
Alıntı yapılan: iyildirim - 29 Ekim 2011, 23:29:14
replace fonksiyonu istediğiniz işi yapar.
replace (değişken , değiştirilecek, yerinekonacak)
strvar = replace (strvar, vbcr, "" ) veya
strvar = replace (strvar, vblf, "" ) veya
strvar = replace (strvar, vbcrlf, "" )
Allah sızden razı olsun hocam cok tesekkur ederım tek satır komut herşeyi çözdü
text1 = replace (text1, vbcrlf, "" )
dedım
text ıcındekı tum enterler ortadan kalktı sagolun :)