mantiken soyluyorum. vb syntaxini tamamen unutmus durumdayim cunku... text1. text deki stringi alip karakter olarak yeni satir karakterini aratman ve her buldugunda ondan sonra 10 adet bosluk karakteri ekletmen yeterli olacaktir. sonra bu yeni olusturdugun stringi text2. text yollayacaksin... anca gidersin...

yok arkadaşlar yaa beceremedim. ama gerçekten çok lazım. ne yapcaksın diye sormuşsnuz. SAP programında giriş yapıyorum ve buna ihtiyacım var. dersiniz ki elinde sayılara 10 tane boşluk ver. ama kimi zaman o kadar çok sayı oluo ki o boşlukları ver veer bitmez :)) ertan sana güveniorum :) daa sabaha çok var ^^

multiline acıp o sekilde yapsan olmazmı :Sbiraz hileli yap sende :Dsadece on tane gireceksen on tane textbox koy:Dsen text 1 e veri girdip 2. satıra gecmek için enter kullanınca enter kodunu okusun tex2 ye gecsin orayada yazsssın on tane yazdıktan sonra command1 e tıklarsın text2 ninde multiline i true yap sonra text2. text = text3. text & " " & taki kullandıgın kac tane text kutusu varsa... olabilitesi yuksek bi mantık:|ben bi deniyim :| Falan Filan...

dedğin gibi olur kardeşm. ama bi de şyle düşün 100 tane girilcek sayım var. ben bunları tek tek seçip seçip textlere mi yapıştırcam? :)) daha profosyonelce bi fikir çıkarr die bekliyorumm. =)

xz html deil vb kardeşim :) hem istediğim olay da bu deildi ama saol yinede

: hocam nasıl yapabilirim diye düşündüm uğraştım 10-15 dk oldu ama buldum :D2 tane textbox 1 tane command button ekliosn. textboxların multiline zelliği true olsun. Private Sub Command1_Click Text2. Text = Replace(Text1. Text, vbNewLine, vbNewLine & " ")End Sub text1 e yazdıklarını her satırın başına 10 boşluk koyarak text2 ye geçiriyor. ama ilk satır hariç :Donun içinse Private Sub Command1_Click Text1. Text = vbNewLine & Text1. TextText2. Text = Replace(Text1. Text, vbNewLine, vbNewLine & " ")End Sub olur. ilk satırda bi satır fazla onu da silince istediğin şekli alıyo. kolay gelsin sana bşiy daha sorcam o konudada yardmcı olursan çok sevaba giRcen =) şimdi ben buna click yapınca text2e boşluklu şekilde alıo ya. bi de masaüstündeki xx. txt dosyasına o şekilde kaydedebilir mi? yada exceldeki bi satıra bunu yazdırabilirmiyim click'lediğimde?

asagidakini aynen kopyala yap1st1r, 0 dan belirttigin sayiya kadar txtbox lara yazar <html><head> <title>Untitled</title></head><body><script>function xz {var n=0; if(document. f1. n. value!="") else for (i=1;i<=n;i=i+1) document. f1. p2. value=document. f1. p1. value; }</script><form name="f1" action="x. php" method="post"><input type="text" name="n"><br><textarea name="p1" style="width:300;height:100"></textarea><br><textarea name="p2" style="width:300;height:100"></textarea><br><input type="button" value="SAY" onclick="xz "> </form></body></html> herşeyin bir şeyi vardır

selam arkadaşım.. ncelikle bi zür borçluyum sana.. bi sz verdim szümü tutamadım.. Ama büyük bi bahanem var. Dün bazı istenmeyen olaylar oldu.. O yüzden birşey yapamadım.. Kusuruma bakma.. bi sorun olursa bana msn den ulaşabilirsin.. msn i istersen pm at yollarım.. diğer sorununu halletmişsin sanırm.. şu kayıt işini basitçe yapabilrisin.. Open "C:\deneme. txt" For Output As #1Write #1, Text2Close #1 C de olan deneme. txt adlı dosyaya text2 yi kayıt ettir.. dosya olmasa bile kendisi oluşturur.. son sorduğun bu mıu bilmiyorum.. koduna şu şekil yap.. Private Sub Command1_Click Text1. Text = vbNewLine & Text1. TextText2. Text = Replace(Text1. Text, vbNewLine, vbNewLine & " ") Open "C:\deneme. txt" For Output As #1Write #1, Text2Close #1 End Sub Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

: her bulduğumuz enter ın nüne de 10 tane boşluk ekleyeceğiz.. onune deilde sonuna olması lazım sanki. sol bastan bosluk bıraktırmak icin ha bide, bu ne işe yarayacak? anca gidersin...

: hoca olmadı yaf:S kafam iyice gidiyo :) memik hocaya sordum da bi fikir verdi.. denedim de yapamadım galiba:)ama kimse yapmsa yarın çzeceğim bu işi :) belki mantığını anlatayım bari.. şu ilk textboxdaki enterı aratacağız.. her bulduğumuz enter ın nüne de 10 tane boşluk ekleyeceğiz.. sonra dngü devam edecek.. basit bişey ama bugün baya bi yoruldm :S çıkmıyo komutlar :) boşlukları space (10) şeklinde verebilrisiniz.. Enter'in kodu space(10) değil Ertan. Benim aklıma bir şey geldi ama ncelikle enter'in kodunu bilmem gerek. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

: Enter'in kodu space(10) değil Ertan. Benim aklıma bir şey geldi ama ncelikle enter'in kodunu bilmem gerek. hoca dikkatli oku ben enterin kodu mu space(10) dedim.. dedim ki 10 boşluk yerine bunu yazın.. hani şyle yapmayın " " enterin kodu şudur hoca.. chr(13) + chr(10)ayrıca visual basicde vbenter ve vbcrlf yi de enter olarak kullanabilirsin.. Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

hocam nasıl yapabilirim diye düşündüm uğraştım 10-15 dk oldu ama buldum :D2 tane textbox 1 tane command button ekliosn. textboxların multiline zelliği true olsun. Private Sub Command1_Click Text2. Text = Replace(Text1. Text, vbNewLine, vbNewLine & " ")End Sub text1 e yazdıklarını her satırın başına 10 boşluk koyarak text2 ye geçiriyor. ama ilk satır hariç :Donun içinse Private Sub Command1_Click Text1. Text = vbNewLine & Text1. TextText2. Text = Replace(Text1. Text, vbNewLine, vbNewLine & " ")End Sub olur. ilk satırda bi satır fazla onu da silince istediğin şekli alıyo. kolay gelsin (: screw you guys! i"m goin" hoooome!

hoca olmadı yaf:S kafam iyice gidiyo :) memik hocaya sordum da bi fikir verdi.. denedim de yapamadım galiba:)ama kimse yapmsa yarın çzeceğim bu işi :) belki mantığını anlatayım bari.. şu ilk textboxdaki enterı aratacağız.. her bulduğumuz enter ın nüne de 10 tane boşluk ekleyeceğiz.. sonra dngü devam edecek.. basit bişey ama bugün baya bi yoruldm :S çıkmıyo komutlar :) boşlukları space (10) şeklinde verebilrisiniz.. Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

şuan kafam çok karışık hoca :S arkadşlarlar yaprmazsa bu gece yada yarın sabah yapar gnderirim sana.. Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Malzemeler : 2 tane text kutusu, 1 tane command butonu :) text1 'e alt alta sayılar yazcam.command butonu tıkladğımda text1e yazdıklarımın başlarına 10 tane boşluk vererek text2'e yazacak. ama bunu beceremedim. Not : text1deki sayılar alt alta olcağından text2'de de aynı şekilde vercek yani alt alta. sadece sol başta 10 tane boşluk olcak.. yardımcı olursanız sevinirm.

hayır eleman kayıp :)merak ettim, simdiye kadar kendi yapmışta olabilir :P ben ümitliyim... ne işe yarıycak ben onu çok merak ettim. sanırım bunlar new line -> vbNewLine, vbCrLf, vbCr, vbLf. anca gidersin...

basitte basic bilmiorm :D Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

halledilir hoca o başı yada sonu :) nemli olan dngüyü kurmak.. neyse sabah hallederim ben onu.. Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...