Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



ukládání do souboru

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

ukládání do souboru

Autor: fichtik

16:39:52 07.06.2011

ahoj,
mám aplikaci která tiskne štítky, pomocí LabelGalery prostředků.
aplikace si pomocí souboru pamatuje sériové číslo vytištěného štítku.
to se zapisuje ručněpřed ukončením programu, ale tady mám problém.
když pustím aplikaci změnim seriové číslo a pak dám uložit data, tak se data uloží a vše funguje tak jak má.
ale když vytisknu štítek a pak dám uložit, tak už se mi nic neuloží, a ani nevyskočí žádná chybová hláška.
program fungova prvních 11 sériových čísel bez problémů, jakmile se dosta na číslo 12, tak přestal ukládat. ale dělá to spíše náhodně

neměl by někdo nějaký nápad kde by mohl být problém?

takhle čtu data
[code]
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'otevre soubor se zdojovymi daty a v nich vyhleda promene
' číslo com portu, heslo, a cestu ke stitkum
Dim soubor As New IO.StreamReader("config.ini")
prazdny = soubor.ReadToEnd
stitek = prazdny.Substring(prazdny.LastIndexOf("") + 9, prazdny.IndexOf("") - (prazdny.IndexOf("") + 9))
SerialNo = prazdny.Substring(prazdny.LastIndexOf("") + 10, prazdny.IndexOf("") - (prazdny.IndexOf("") + 10))
soubor.Close()
LG = New LabelGalleryPlus3WR.LGApp ' spusteni instance LabelGalery
TextBox3.Text = SerialNo
End Sub
[/code]

tahle zapisuju data
[code]
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error GoTo chyba
Dim soubor As New IO.StreamWriter("config.ini")
stitek = prazdny.Substring(prazdny.LastIndexOf("") + 9, prazdny.IndexOf("") - (prazdny.IndexOf("") + 9))
SerialNo = prazdny.Substring(prazdny.LastIndexOf("") + 11, prazdny.IndexOf("") - (prazdny.IndexOf("") + 11))
MsgBox(stitek)
MsgBox(TextBox3.Text)
outline1 = "" & stitek & ""
outline2 = "" & TextBox3.Text & ""
soubor.Write(outline1)
soubor.WriteLine()
soubor.Write(outline2)
soubor.Close()
TextBox4.Text = "ulozeno"
Exit Sub
chyba:
MsgBox(Err.Description)
End Sub

[/code]

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: