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