Txt uzantılı dosyaya veri yazmak & silmek & Değiştirmek

[koruyucu]

Merhabalar,
Kapalı bir txt dosyasının içindeki veriyi;
okuma, değiştirme, silme ve kaydetme işlemleri yapılabilirmi acaba?

Örnek dosya ektedir.
İlgilendiğiniz için teşekkürler.

 

[koruyucu]

yanlış mesaj prd.

 

[Mahmut Bayram]

Haluk abinin çalışması ektedir.

 

[koruyucu]

Teşekkürler Mahmut bey, ancak sadece bu .txt de tek bir veri olacak yani amacım bir veriyi kontrol ettirmek ve değiştirmek,
İlginiz için çok teşekkürler ama bu çok kombike benimkinin yanında, istediğim şekilde bir şey olabilirmi acaba?

Teşekkürler yardımlarınız için şimdiden.

 

[koruyucu]

yokmu yardım edebilecek acaba ?

 

[Haluk]

Dosyanız ektedir, işlemi yaptıktan sonra sonucu görmek için Excel dosyasının olduğu yerdeki "Deneme.txt" dosyasına bakınız...

.

 

[Halit TÜRK]

Haluk bey ellerinize sağlık, çok güzel bir örnek olmuş.

 

[koruyucu]

Haluk Bey çok teşekkürler, elinize sağlık süper olmuş,
Ancak acaba mesela ben excel dosyasını açtığımda deneme.txt den veriyi oto çekmesi mümkünmüdür?

Birde B2 yerine bir texbox kullanılabilirmi

ilginiz için teşekkürler

 

[Halit TÜRK]

Merhaba
Range("B2") yazan yerleri Textbox1 olarak değiştiriniz..

 

[koruyucu]

htrk merhaba
denedim ama olmamıştı :S

 

[koruyucu]

peki sheet içinde değilde form içinde olsa ?
örnekte ki gibi mesela veriyi oraya çekse otomatik sonra biz o kayıt üstünde oynama yapınca kaydet tıklasak ve silebilsek,
olabilirmi?

teşekkürler şimdiden

 

[Halit TÜRK]

Text Textbox1

Ekli dosyaya bakınız..

 

[Halit TÜRK]

Sizin Dosyanız...

 

[koruyucu]

htrk teşekkürler çok sağolasınız ama otomatik olarak deneme.txt deki veriyi sayfa açılır açılmaz o kutucuğa aktarmaz mıyız acaba?

 

[Halit TÜRK]

Kodu ilave ediniz..

Private Sub UserForm_Initialize()
If Not Dir(ThisWorkbook.Path & "\Deneme.txt") = Empty Then
Open ThisWorkbook.Path & "\Deneme.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Txtdata
Loop
TextBox1 = Txtdata
Close #1
Exit Sub
Else
MsgBox ThisWorkbook.Path & "\Deneme.txt" & vbCrLf & "dosyası bulunamadı..."
End If
End Sub

 

[koruyucu]

Sayın htrk;
teşekkürler yardımınız için,

iyi çalışmalar/ iyi günler.

 

[Halit TÜRK]

Rica ederim... Bende Haluk beye teşekkür ederim..

 

[mozdem]

Link Kırık "Txt uzantılı dosyaya veri yazmak & silmek & Değiştirmek"

Dosyanız ektedir, işlemi yaptıktan sonra sonucu görmek için Excel dosyasının olduğu yerdeki "Deneme.txt" dosyasına bakınız...

.

Link silinmiş sanırım. Yardım edebilirmisiniz.

 

[yerbakili]

Konudaki hiç bir eklenti maalesef indirilemiyor. Uygulamanın en son halinin eklenmesi mümkün müdür acaba?