Dropbox

[hanonymouss]

Waarom lees je test.txt twee keer? Waar dient die Reader As New IO.StreamReader etc voor?
Zowiezo geloof ik dat een StreamReader geen online bestanden kan inlezen, alleen bestanden op de lokale schijf of schijven.

Een witregel is een gewoon een regel zonder enige tekst of tekens.

Bij jou code werkt dat wel bij mijn code niet. Mijn code zegt altijd dat hij de tekst herkend terwijl ik helemaal niets heb ingevuld en u code werkt dat wel perfect.

Heb je mischien een andere manier om de txt online te lezen.

 

[huijb]

Codetags plaatsen doe je zo http://www.helpmij.nl/forum/showthread.php/321171-Lees-dit-eerst-voor-je-een-vraag-plaatst.

 

[MatthiWare]

code

Voor streamreader te gebruiken moet het bestand op jouw pc staan of op een netwerkschijf.
Dus wat je zou kunnen doen is, eerst download je het naar een folder en dan lees je het met een streamreader. 'Zie voorbeeldcode'

De witregels waren over het tekstbestand. Je 'test.txt' bestand op dropbox had een lijntje text dan paar witregels [enter] en dan weer tekst mischien is het daardoor fout gegaan.

Voorbeeld code:
[CPP]
Dim tempfilename As String = My.Computer.FileSystem.GetTempFileName()
Dim web As New WebClient
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
AddHandler web.DownloadFileCompleted, AddressOf DownloadCompleted

web.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/38016137/Pay%20visual%20studio%20software/test.txt"), tempfilename)
End Sub

Private Sub DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)

Dim Reader As New IO.StreamReader(tempfilename)
Do While Reader.Peek() <> -1
MsgBox(Reader.ReadLine)
Loop
Reader.Close()
End Sub
[/CPP]

Dit werkt bij mij. Test het eens
en vergeet ook niet

[CPP]
Imports System.Net
Imports System.IO
Imports System
[/CPP]

 

[hanonymouss]

setting voorbeeld:

Dank u Matti het werkt!!


Wat ik nu nog wil is van wanneer een juiste txt in de texbox is gevuld (in dit geval test)
dan wil ik dat de button1 (enabled = false ) dit wil ik met behulp van een setting doen dat hij niet constant weer enabled is als ik mijn programma opnieuw opstart.


Dis is mijn voorbeeldcode voor settings:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim sTxt As String = New Net.WebClient().DownloadString("http://dl.dropbox.com/u/38016137/Pay%20visual%20studio%20software/test.txt")
        If TextBox1.Text = sTxt Then
            MessageBox.Show("Tekst is herkend.")
            Button1.Enabled = False

            My.Settings.actif = True
            My.Settings.Save()
        Else

            MessageBox.Show("Tekst is niet herkend")



        End If



    End Sub

en in mijn formload heb ik dit geplaats:

 If My.Settings.actif = True Then
            Button1.Enabled = False

        End If

 

[JoZ1]

@The Mighty Atom: De TS wilde het toch in zijn Temp hebben?

 

[MatthiWare]

Je zou het op deze manier kunnen doen:

deze moet in de 'Sub DownloadCompleted' komen

[CPP]
Dim sReader As String
Dim Reader As New IO.StreamReader(tempfilename)
Do While Reader.Peek() <> -1
sReader = Reader.ReadLine
If sReader.Contains("test") Then
My.Settings.actif = True
My.Settings.Save()
End If
Loop
Reader.Close()
[/CPP]

hiermee leest hij elk lijntje en controleert of het het woord 'test' (in dit geval) bevat zoja dan zet hij de setting op true.

 

[hanonymouss]

Opgelost

:thumbank u wel allemaal, ik denk dat het probleem nu opgelost is voor dit onderwerp. :thumb:

Ik weet nog steeds niet hoe je meerdere txt online kan lezen met een textbox.
Die herkent alleen 1 string dat is (test) maar ik dat de textbox meer dan 1 string kan herkennen zoals Bv: test1, test2 test3 enzo...

Als ik er meerdere onder (test) zet dan werkt hij niet.

 

[JoZ1]

Probeer dit:

1. (Zoals MartinJM al eerder aandroeg) Download het bestand naar Temp.
2. Gebruik mijn code van post #16.

Zoals je ziet was alle informatie reeds gegeven.