• 15-09-2010, 01:47:15
    #1
    Merhaba arkadaşlar acemi programcı karşınızda :P
    Benim yapmaya çalıştığım program şu mantıkta:

    kodlar.Append("BURAYA VERECEGIM KOD" & TextBox7.Text & "BURAYA VERECEGIM KOD")

    Sonunda kodları kopyala yapıp herşeyi kopyalamak.

    Herşey tamam yaptım fakat "BURAYA VERECEGIM KOD" kısmında tırnak kullanmam gerek. Bu sebeple iş değişiyor

    kodlar.Append("" & TextBox7.Text & "")

    İlk kısma vereceğim kod şu :
    "slidelink" => "

    İkinci kısma vereceğim kodsa:
    ",


    Şu şekil olması gerek yani:
    kodlar.Append(" "slidelink" => "" & TextBox7.Text & "",")

    İşin içine birden fazla tırnak girince başı sonu karışıyor. Yardımınıza ihtiyacım var.
  • 15-09-2010, 02:18:05
    #2
    zor bir şey yok hocam ortada,iki tırnak koyacaksın.. yani şöyle bi örnek vereyim..

    dim s as string

    s = "Selam nasılsın ""ali"" kardeş?"

    msgbox(s)

    ekranda

    selam nasılsın "ali" kardeş?
    şeklinde çıkar. bu da işine yarar

    iyi çalışmalar
  • 15-09-2010, 02:21:57
    #3
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    kodlar.Append(" ""slidelink"" => """ & TextBox7.Text & """,")
  • 15-09-2010, 04:45:06
    #4
    Teşekkürler, aynı sistemle bir tane daha yapmaya çalıştığımda error veriyor

    VirtualDub.Open("XXXXXXXX","",0);

    kodlar.Append("BURAYA VERECEGIM KOD" & TextBox7.Text & "BURAYA VERECEGIM KOD")

    İlk kısma vereceğim kod şu :
    VirtualDub.Open("

    İkinci kısma vereceğim kodsa:
    ","",0);


    Buna da uyarlarsanız sevinirim arkadaşlar.
  • 15-09-2010, 11:34:22
    #5
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    kodlar.Append("VirtualDub.Open(""" & TextBox7.Text & ""","""",0);")
  • 15-09-2010, 11:40:29
    #6
    tolgasen adlı üyeden alıntı: mesajı görüntüle
    kodlar.Append("VirtualDub.Open(""" & TextBox7.Text & ""","""",0);")
    Ben bu kısmı """",""",0);") olarak uyguladım sildim tırnak ekledim. Sürekli hata verdi. Hocam harikasın ne diyim
  • 15-09-2010, 11:44:13
    #7
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    Hocam şöyle yap.
    Demişsin ki "BURAYA VERECEĞİM KOD"

    O iki " " arasını ayır büyükçe;
    Yani şöyle olsun.
    kodlar.Append("_____" & Text....

    Daha sonra koymak istediğin kodları içine yaz;
    kodlar.Append("_____"Deneme"_____" & Text....
    Bu kodlar böyle hata verir. Daha sonra her bir " tek tırnağı iki tane yap.

    kodlar.Append("_____""Deneme""_____" & Text....
    Daha sonra boşlukları silebilirsin.
    kodlar.Append("""Deneme""" & Text....

    Kolay gelsin
  • 15-09-2010, 12:16:42
    #8
    tolgasen adlı üyeden alıntı: mesajı görüntüle
    Hocam şöyle yap.
    Demişsin ki "BURAYA VERECEĞİM KOD"

    O iki " " arasını ayır büyükçe;
    Yani şöyle olsun.
    kodlar.Append("_____" & Text....

    Daha sonra koymak istediğin kodları içine yaz;
    kodlar.Append("_____"Deneme"_____" & Text....
    Bu kodlar böyle hata verir. Daha sonra her bir " tek tırnağı iki tane yap.

    kodlar.Append("_____""Deneme""_____" & Text....
    Daha sonra boşlukları silebilirsin.
    kodlar.Append("""Deneme""" & Text....

    Kolay gelsin
    Yardımların için çok teşekkür ederim..

    Bir kaç sorum daha olucaktı..
    Ben basit bir run.bat dosyası yaptım
    ABCD.exe /r /s"ozeldosya.abc" /x
    goto :end


    Ben bunu ilgili dosyada run.bat olmadan. Bu kodları VB.NET ile bir butona yüklemek istiyorum. Yani bi butona tıkladığında anında bu komutlardaki işlemi yapıcak.. Bunu nasıl yapabilirim peki ?
  • 15-09-2010, 17:18:20
    #9
    Shell("ABCD.exe /r /s""ozeldosya.abc"" /x")

    deneyebilirsin