xxrt
24-11-2004, 16:47
Bir Hücre İçine Txt Dosyasından Kopyalanıp Yapıştırılan değerlerin Boşluk Dahil Kaç Karakter sayısı olduğunu Bulmak istiyorum.Veya Pratikse eğer Txt Dosyasının İçindeki,diyelimki 1.Satırın Başından Sonuna Kadar Seçildiğinde bana O Seçimin karakter sayısı gerek..
Excelden Txt dosyasına Aktardığım Değerlerin (Belki 500,600 karakter)Karakter sayısı kontrolünde Kullanacağım..Aşağıdaki *565 sınırlaması var ama sonuç txt'de farklı çıkıyor/kabilir.Her satırı Saymak ve sağlıklı kayıt için bu gerekli..
Sub txt()
Dim LastRowA As Integer
Dim veri1 As String * 565
Dim i As Integer
Open "C:\xxrt\Deneme.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
Print #1, veri1
Next i
Close #1
End Sub
Excelden Txt dosyasına Aktardığım Değerlerin (Belki 500,600 karakter)Karakter sayısı kontrolünde Kullanacağım..Aşağıdaki *565 sınırlaması var ama sonuç txt'de farklı çıkıyor/kabilir.Her satırı Saymak ve sağlıklı kayıt için bu gerekli..
Sub txt()
Dim LastRowA As Integer
Dim veri1 As String * 565
Dim i As Integer
Open "C:\xxrt\Deneme.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
Print #1, veri1
Next i
Close #1
End Sub