Stránka 1 z 1

Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 19:22
od Grow
Zdravím, udělal jsem jednoduchý chat, který ukládá data na FTP a taky je čte a zobrazuje v TextBoxu. Mám ale jeden problém, a to ten, že se ty data přepisují, zprávy se ukládají, ale jen na jeden řádek a jak se napíše nová zpráva tak se odešle na FTP ale přepíše se stará zpráva. A má otázka zní, jak udělat aby se každá zpráva uložila pod sebe a nepřepisovala.

Script pro poslání zprávy na FTP

Kód: Vybrat vše

Try
            Dim AClient As New Net.WebClient
            AClient.UploadString("ftp://xxx.xxx.xxx/zpravy.txt", Jméno.Text & ": " & Zpráva.Text)
            Zpráva.Text = ""
        Catch ex As Exception
        End Try

Předem díky.

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 20:33
od CZechBoY
stáhneš stávající obsah, připojíš k němu zprávu a uploaduješ

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 21:13
od Grow
Ano, ale mě se pořád ta stára zpráva přepíše, ale já potřebuji aby se nahrála pod tu předchozí

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 21:20
od CZechBoY
stáhnout starej soubor, připojit zprávu, nahrát

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 21:23
od Grow
A snáz by to nešlo? Jakože tohle zkusím, ale nevím nevím jestli zvládnu..

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 21:28
od CZechBoY
nedokážeš stáhnout soubor, vytáhnout z něj text, použít operátor += a uložit na server?!

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 21:31
od Grow
stáhnout soubor ano, s tím vytáhnutím textu to bude horší

Re: Ukládání na FTP ve VB2010

Napsal: 21 úno 2012 21:33
od CZechBoY
StreamReader?

Re: Ukládání na FTP ve VB2010  Vyřešeno

Napsal: 21 úno 2012 21:54
od Grow
Takže nějak takhle?

Script pro stažení

Kód: Vybrat vše

            Dim Web As New WebClient
            Dim Update As String = Web.DownloadString("ftp://xxx.xxx.xxx/zpravy.txt")

            Pošta.Text = Update


A tady pro nahrání

Kód: Vybrat vše

Try
            Dim AClient As New Net.WebClient
            AClient.UploadString("ftp://xxx.xxx.xxx/zpravy.txt",update & Jméno.Text & ": " & Zpráva.Text)
            Zpráva.Text = ""
        Catch ex As Exception
End Try


Myslíš že by to takhle šlo?

--- Doplnění předchozího příspěvku (21 Úno 2012 21:59) ---

Zkusil sem to, ale teď se uloží jen dvě zprávy a ještě se nenapíšou pod sebe, ale na jeden řádek

Re: Ukládání na FTP ve VB2010

Napsal: 22 úno 2012 06:54
od CZechBoY
ťak nejspíš ukládáš zprávy na jeden řádek
co asi mám vyčíst z ukázkových příkladů funkcí?