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

[chngrcn]

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;

 <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.

ÖRNEK :


<MEYVE>2</MEYVE>

BAŞLA

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

BİTİR

<SEBZE>4</SEBZE>

 

[PLİNT]

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

[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]

 

[chngrcn]

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

[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]

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..

 

[Haluk]

Merhaba;

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

.

 

[chngrcn]

Evet haluk bey..

 

[Haluk]

Aşağıdaki linkte Microsoft'un ücretsiz bir XML editörü var.

Biraz kurcalayıp, işinizi görürsünüz diye düşünüyorum.

https://www.microsoft.com/en-us/download/confirmation.aspx?id=7973

.

 

[Haluk]

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.

.

 

[chngrcn]

haluk bey dosyanızı internete yükleyebilirmisiniz. altın üyelik olmadığı için indiremiyorum.

 

[Haluk]

http://www.dosya.tc/server10/8kbet5/Desktop.rar.html

.

 

[chngrcn]

http://www.dosya.tc/server10/8kbet5/Desktop.rar.html

.

arşiv hasarlı diyor haluk bey.. dosyayı yeniden upload edermisiniz. bu arada altın üyelik aldım.
rar dosyası hasarlı

 

[Haluk]

RAR dosyası sağlam, merak etmeyin.

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

​

.

​

.

 

[Haluk]

İ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 ....

.

 

[chngrcn]

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.