Not Defterinde VBS İle Karakter Saydırma Sorunu

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Kullanıcı avatarı
trwe
Petabyte3
Petabyte3
Mesajlar: 7910
Kayıt: 25 Eyl 2013, 13:38
cinsiyet: Erkek
Konum: Orion Takımyıldızı-Bertuna Planet

Re: Not Defterinde VBS İle Karakter Saydırma Sorunu

Mesaj gönderen trwe »

Sayın Yönetİci

Çok garip bir şey oldu.Ubuntu da Nokia C6-01 cep telefonu sanki bir modem gibi davranmakta şu anda sanki modemden internette giriyorum gibiyim..Bunun sizce bir açıklaması varmıdır.?

Bu arada kodlar aşağıdadır.

Kod: Tümünü seç

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("%USERPROFILE%\Desktop\.*.txt", ForReading)

strCharacters = objFile.ReadAll

Wscript.Echo Len(strCharacters)

strCharacters = Replace(strCharacters, vbCrLf, "")

strCharacters = Replace(strCharacters, " ", "")

Wscript.Echo Len(strCharacters)

objFile.Close
TRWE_2012-GET LINUXMASTER#>_
Follow me, you won't regret it ....!
Alaydan Yetişme PC Kullanıcısı

Birşeyin doğruluğuna inanıyorsanız, sonuna kadar savunun......! Eğer savunduğunuza inanmıyorsanız, işte o zaman siz SAHTEKAR'sınız demektir.
Kullanıcı avatarı
velociraptor
Yottabyte4
Yottabyte4
Mesajlar: 31616
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: Not Defterinde VBS İle Karakter Saydırma Sorunu

Mesaj gönderen velociraptor »

Const ForReading = 1

Set WshShell = WScript.CreateObject("Wscript.Shell")
vAPPDATA = WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\")


Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile( vAPPDATA & "test.txt", ForReading)

strCharacters = objFile.ReadAll

Wscript.Echo Len(strCharacters)

strCharacters = Replace(strCharacters, vbCrLf, "")

strCharacters = Replace(strCharacters, " ", "")

Wscript.Echo Len(strCharacters)

objFile.Close
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free
Cevapla