• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

txt içindeki metin transferi

  • Konbuyu başlatan Konbuyu başlatan chngrcn
  • Başlangıç tarihi Başlangıç tarihi
C

chngrcn

Katılım
5 Mart 2010
Mesajlar
295
Excel Vers. ve Dili
Microsoft Office 2010
Forumun değerli üyeleri,

c: sürücüsü altında varsayalım

1.txt adlı metin dosyamız var, ve bunların içinde daha önceden yazılmış metin var.

1.txt dosyasının içeriği şu;

MERHABA CİHANGİR, NASILSIN İYİMİSİN ? [ALAN001] 'da HAVA BULUTLU.

bu 1.txt dosyası metnindeki [ALAN001] 'e
daha önceden oluşturduğum userformdaki textbox1'in içine yazdığım veriyi alacak şekilde, o an windows ekranında hangi program açıksa, açık olan yere metin ile birlikte veriyi çekerek yapıştırsın...

yani ben command butona tıkaldığımda atıyorum o anda bir tane word belgesi açık, word belgesi ekranına

MERHABA CİHANGİR, NASILSIN İYMİSİN ? İSTANBUL'da HAVA BULUTLU.

şeklinde yazması lazım..

yardımlarınızı rica ediyorum..

Not: (txt belgesi kapalı iken gerçekleşecek.. )
 
Kod: 
Private Sub CommandButton1_Click()
    Open "C:\1.txt" For Input As #1
    Line Input #1, veri
    Close #1
    veri = Replace(veri, "[ALAN001]", TextBox1.Text)
    Set DataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    DataObj.SetText veri
    DataObj.PutInClipboard
    Set DataObj = Nothing
End Sub
Geri kalan işi de siz yapın.
 
üstün kod zekanıza hayran kaldım..

Kod: 
Set DataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

bu satırdaki kısımı okuyabilir misiniz bana ? new'li kısım ne işe yarıyor ?
 
Sayın Veyselemre,
Birden fazla alan var diyelim.
[ALAN001]
[ALAN002]
[ALAN003] gibi.. ve alan sayısı kadar texbox oldugunu var sayarsak ne gibi bir yöntem uygulanabilir ?


ayrıca, yazdığınız kodda, sadece 1.satırı dikkate alıyor.. metin belgesi çok uzun olabilir.. örneğin [ALAN001] objesi 20.satırda bir cümlenin içindede olabilir.. bu durumda kodda ne gibi değişiklik gerekiyor..

amacım ALAN001, ALAN002, ALAN003 gibi değişkenler tanımlamak..


örnekleyecek olursak 1.txt dosyadında ki metin şöyle farzedelim..


(txt'nin 1.satırı) Ali ata bakar mısın ? [ALAN001] lütfen ata bakarmısın
(txt'nin 2.satırı) Oya [ALAN003] okula koşar mısın ? lütfen okula koşar mısın
(txt'nin 3.satırı) Ömer mısır yer misin ? lütfen mısır yermisin
(txt'nin 4.satırı) ışık ılık süt içer misin ? lütfen süt içer misin ?
(txt'nin 5.satırı) Ahmet topu tutar mısın ? lütfen [ALAN002] topu tutar mısın ?

textbox1, 2 ve 3 tane olduğunu var sayarsak,
alan001 'e textbox1'in değeri
alan002 'e textbox2'in değeri
alan003 'e textbox3'in değeri gelecek şekilde, cümle içerisinde ve farklı satırlarda ilgili ALAN'I bulup değerini içine yerleştirip, YAPIŞTIR KOMUTUNA TÜM METİN İLE BİRLİKTE HAZIR OLACAK..

bunu sağlamamız mümkün müdür ?
 
Son düzenleme:
chngrcn' Alıntı:
Beceremedim..
Genişletmek için tıkla ...
Kod: 
Private Sub CommandButton1_Click()


    Set fso = CreateObject("Scripting.FileSystemObject")

    Filename = "C:\1.txt"
    Set MyFile = fso.OpenTextFile(Filename, 1)
    If MyFile.AtEndOfStream Then
        ReadAllTextFile = ""
    Else
        ReadAllTextFile = MyFile.ReadAll
        MyFile.Close

        ReadAllTextFile = Replace(ReadAllTextFile, "[ALAN001]", TextBox1.Text)
        ReadAllTextFile = Replace(ReadAllTextFile, "[ALAN002]", TextBox2.Text)
        ReadAllTextFile = Replace(ReadAllTextFile, "[ALAN003]", TextBox3.Text)

        MsgBox ReadAllTextFile

        Set DataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        DataObj.SetText ReadAllTextFile
        DataObj.PutInClipboard
        Set DataObj = Nothing

    End If
    Set MyFile = Nothing

End Sub
 
Kod: 
 End If
    Set MyFile = Nothing
unload me

[COLOR="Green"]Shell "C:\Program Files\Bilgi Sistemi\Bilgi Sistemi.exe"[/COLOR]

[COLOR="Red"]'buraya YAPIŞTIR komutu eklenecek[/COLOR]


yukarıda unload me komutundan sonra benim, bilgi sistemi adlı bir programım var, onu aktif hale getirip aktif pencereye clipboaddaki kopyalanan veriyi yapıştırmak istiyorum.. sağlanması mümkün müdür ?
 
Düzenleyin, deneyin.
Kod: 
       Set MyFile = Nothing
    Unload Me
    
    AppActivate Shell("NOTEPAD", 1)
    SendKeys "^{v}", True
 
Kod: 
       Set MyFile = Nothing
    AppActivate Shell("NOTEPAD", 1)

burası notepad açıyor..

send keys komutunu benim shell komutunun altına yazdığımda işimi gördü.. emekleriniz için çok teşekkür ederim hocam..

sizden bir ricam olacak, lütfen bu konuyu takipte kalın.. sıkıştığım yerde size dönmek zorunda kalacağım, yardımlarınız esirgemezseniz minnettar kalırım.. sayılarımı sunarım..
 
saygıdeğer forum üyeleri,

ekte proje adlı bir dosyam var. userform a 3 adet buton ekledim. ve bu butonlara özelliği verdirmeyi başaramadım..

textbox5 içinde veri girişi yaptığımda farklı kaydet butonuna tıkladığımda dosya yolu klasörünü açmasını ve içine istediğim isimde kayıt yapmak istiyorum..

yeni metin belgesi aç butonuna tıkladığımda yeni bir metin belgesi oluşturmak istiyorum..

txt içindeki değişiklikleri kaydet butonuna tıkladığımda ise, listbox1 den çağırdığım dosya textbox5 içinde görüntülendiği için, textbox5 içinde değişiklik yapıp bu butona tıkladığımda metin belgesi içinde de aynı şekilde değişiklik yapmasını istiyorum..

yardımlarınızı arz ederim.. saygılar..

http://s8.dosya.tc/server2/wshdy0/proje.rar.html
 

Ekli dosyalar

Son düzenleme:
yardımlarınızı bekliyorum, veysel hocam
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst