Skip to main content

AccessTr.neT


Dosya okutma ve karşılaştırma

Dosya okutma ve karşılaştırma

Çözüldü #1
Yapmak istediğim şudur

http://www.omurcan.com.tr/programlar/deneme.txt dosyası içeriği ile

Application.StartupPath + "\deneme.txt") içindeki dosya içeriklerini karşılaştırmak istiyorum

dosyaların içlerinde 1.0.0.1 gibi yazılar var. Hangisi büyükse mesaj verecek.

Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Meramınızı anlatmak için dolambaçlı cümleler kullanırsanız hızlıca yardım alamazsınız. Yapmak istediğiniz şey programınızın sürümünün güncel halini internet üzerinden kontrol etmek.

Web üzerindeki metin dosyasını okutmayı biliyorsunuzdur zaten. Okuduğunuz string değişkenin birinci, üçüncü, beşinci ve yedinci karakterlerini aynı sıra ile kendi yerel dosyanızdaki karakterler ile karşılaştıracaksınız. Eğer hepsi aynı ise güncel sürüm kullanıyordur. Sitedeki karakterlerden herhangi biri yereldeki karaktarden büyük ise o halde güncel sürüm var demektir. Bu durumda da güncelleme işlemini yapabilirsiniz.

Sitemizde hemen her alanda olduğu gibi bunun içinde örnek vardı:

Güncel Versiyon Kontrolü / Lisans Koruma Örneği
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
(14/12/2012, 22:09)alpeki99 yazdı: Meramınızı anlatmak için dolambaçlı cümleler kullanırsanız hızlıca yardım alamazsınız. Yapmak istediğiniz şey programınızın sürümünün güncel halini internet üzerinden kontrol etmek.

Web üzerindeki metin dosyasını okutmayı biliyorsunuzdur zaten. Okuduğunuz string değişkenin birinci, üçüncü, beşinci ve yedinci karakterlerini aynı sıra ile kendi yerel dosyanızdaki karakterler ile karşılaştıracaksınız. Eğer hepsi aynı ise güncel sürüm kullanıyordur. Sitedeki karakterlerden herhangi biri yereldeki karaktarden büyük ise o halde güncel sürüm var demektir. Bu durumda da güncelleme işlemini yapabilirsiniz.

Sitemizde hemen her alanda olduğu gibi bunun içinde örnek vardı:

Güncel Versiyon Kontrolü / Lisans Koruma Örneği


Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.xxxxxxx/veritabaniversion.txt")
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim newestversion As String = sr.ReadToEnd()
Label1.Text = (newestversion)
'dosya kontrolü
Dim dosya As New StreamReader(Application.StartupPath + "\veritabaniversion.txt", Encoding.GetEncoding("windows-1254"))
Label2.Text = dosya.ReadToEnd
If Label1.Text > Label2.Text Then
VerToolStripMenuItem.Visible = True
VerToolStripMenuItem.Text = "Veritabanı Güncellemesi"
Else
End If
dosya.Close()

MsgBox("Güncelleme dosyanız yok indirilecek")
Dim _WebClient As New System.Net.WebClient()
_WebClient.DownloadFile("http://www.xxxxxxx/veritabaniversion.txt", Application.StartupPath + "\veritabaniversion.txt")

Çözüm
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da