• DİKKAT

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

TXT Dosyası içerisinde "BAŞLA" ve "BİTİR" Kelimeleri arasındaki tüm metni sil

C

chngrcn

Katılım
5 Mart 2010
Mesajlar
295
Excel Vers. ve Dili
Microsoft Office 2010
TXT Dosyası içerisinde "BAŞLA" ve "BİTİR" Kelimeleri arasındaki tüm metni sil

başlık : TXT Dosyası içerisinde "BAŞLA" ve "BİTİR" Kelimeleri arasındaki tüm metni sil yerine bir boşluk koy


Değerli forum üyeleri. Aşağıdaki sorumun VB Kodlamasını rica eder ,saygılar sunarım..

txt içeriği;

Kod: 
 <MEYVE>2</MEYVE>

BAŞLA

<ELMA>
    <ARMUT>
<KİRAZ>
    <ANANAS>
 
BİTİR

<SEBZE>4</SEBZE>

Yukarıda txt dosyasının içeriği mevcuttur.
Bu dosyanın yolu " C:\manav.txt " dir

Amacımız bu dosya içerisinde "BAŞLA" kelimesi ile "BİTİR" kelimeleri arasındaki tüm metin silinerek yerine bir satır boşluğu koymaktır.

Bir buton yardımı ile VB kodlamasını yazabilir miyiz ? Yardımlarınız için teşekkürler.

Not: "BAŞLA" ve "BİTİR" kelimeleri silinmeyecek ve dosyanın diğer içerikleri oynanmayacak ve aynı dosya üzerine yazılacaktır.

Sonuç aşağıdaki gibi olacaktır.

Kod: 
ÖRNEK :


<MEYVE>2</MEYVE>

BAŞLA

(Burada sadece bir satır boşluk kalacaktır.)

BİTİR

<SEBZE>4</SEBZE>
 
Merhaba
"BAŞLA" ve "BİTİR" kelimelerinin text dosyasında birer kere olacağını varsayarak,
aşağıdaki gibi deneyin

Kod: 
[SIZE="2"]Sub deneme()
Dim b As String, c As String, d As String
b = CreateObject("scripting.filesystemobject").Opentextfile("C:\manav.txt").readall
If UBound(Split(b, "BAŞLA")) > 0 Then
c = Split(b, "BAŞLA")(1)
d = "BAŞLA" & Split(c, "BİTİR")(0) & "BİTİR"
b = Replace(b, d, "BAŞLA" & vbCrLf & vbCrLf & "BİTİR")
Open "C:\manav.txt" For Output As #1
Print #1, b
Close #1
End If
End Sub[/SIZE]
 
PLİNT' Alıntı:
Merhaba
"BAŞLA" ve "BİTİR" kelimelerinin text dosyasında birer kere olacağını varsayarak,
aşağıdaki gibi deneyin

Kod: 
[SIZE="2"]Sub deneme()
Dim b As String, c As String, d As String
b = CreateObject("scripting.filesystemobject").Opentextfile("C:\manav.txt").readall
If UBound(Split(b, "BAŞLA")) > 0 Then
c = Split(b, "BAŞLA")(1)
d = "BAŞLA" & Split(c, "BİTİR")(0) & "BİTİR"
b = Replace(b, d, "BAŞLA" & vbCrLf & vbCrLf & "BİTİR")
Open "C:\manav.txt" For Output As #1
Print #1, b
Close #1
End If
End Sub[/SIZE]
Genişletmek için tıkla ...


Sayın PLINT çok teşekkür ederim.
Ek olarak son bir sorum daha olacak..

"BAŞLA" ile "BİTİR" kelimeleri arasına örneğin : "LAHANA TURŞUSU" lafını ekletebilir miyiz ?

kod ile nasıl sağlanır ?
Ve bu yukarıdaki kodlamalarınız Visual Basic.NET kodları ile uyumlumudur ? Visual Studio ile Visual Basic.NET kodlaması ile yazıldığında işimizi görür mü ?

Saygılar..
 
Merhaba;

XML dosyası mı hazırlamaya çalışıyorsunuz?

.
 
Veya, direkt olarak Excel ve Notepad'i kullanarak bir XML dosyası hazırlayabilirsiniz.

Ben denemek için ekli Excel dosyasını hazırladım, A1:H10 aralığını kopyalayıp, Notepad'e yapıştırdım. Daha sonra, dosyanın uzantısını "XML" olarak değiştirdim.

Sonuç, başarılıydı .... aşağıya dosyaları ekledim.

.
 

Ekli dosyalar

Son düzenleme:
haluk bey dosyanızı internete yükleyebilirmisiniz. altın üyelik olmadığı için indiremiyorum.
 
RAR dosyası sağlam, merak etmeyin.

Kullandığınız WinRAR programının versiyonunu yükseltin.


​


.


​


.
 
Son düzenleme:
İlave olarak;

XML dosyasında yer alacak veriler (yukarıdaki resimlerde örnek olarak verilen Isim1, Soyad1, Isim2, Soyad2 ..... ) belli olduğu takdirde, direkt olarak söz konusu XML dosyasını hazırlayacak VBA kodu da yazılabilir ....

.
 
Teşekkür ederim Haluk bey, bu konu ile ilgili bir projem var. Ve faydalı bir bilgi verdiniz. Ben aslında VB.NET ile yazdım projemi. Bitirmek üzereyim. Excel VBA kodlaması, VB.NET ile çoğu kodlaması uyuşmuyor. biraz zorlansakta, biraz araştırma, biraz sabır ile bitirmeye çalışıyoruz. Yardımcı olan arkadaşlardan da Allah razı olsun.. İyi ki böyle değerli ustalara sahibiz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst