Tema: Re: Del Visual Basic skripto
Autorius: Joint_as
Data: 2009-08-11 22:13:26
Aciu, viskas puikiai veikia.

Raimi, busite irasytas i programos autorius :))

toliau bandysiu knaisiotis pats su google..

"Raimis" <no@mail.com> wrote in message 
news:h5r1da$817$1@trimpas.omnitel.net...
> Del liet. raidziu
>
> Pakeisk atitikama eilute sia:
>
> Using parser As New TextFieldParser(filename, 
> System.Text.Encoding.GetEncoding(0))
>
>
>
>
> "Joint_as" <a@a.com> wrote in message 
> news:h5q1ei$lj1$1@trimpas.omnitel.net...
>> Dabar viskas OK tik nerodo lietuvisku raidziu (meta kvadraciukus)
>> kaip sukisti kazkoki charset ar kazka panasaus?
>>
>>
>> "Joint_as" <a@a.com> wrote in message
>> news:h5po0t$bud$1@trimpas.omnitel.net...
>>> Liuks! Dekui. Viskas taip kaip reikia.
>>>
>>>
>>>
>>>
>>>
>>>
>>> Dar reiktu ivedus i paieska teksta iskart spaust "Enter" paieskai (arba
>>> Button'a)
>>>
>>>
>>> Radau toki skripta textboxui:
>>> Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As
>>> System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
>>>
>>> If e.KeyChar = Chr(13) Then
>>>
>>> Button1_Click(Me, EventArgs.Empty)
>>>
>>> End If
>>>
>>> End Sub
>>>
>>>
>>>
>>> bet viena problema - nuspaudus Enter girdisi toks windowsinis 'klik'
>>> garsas (butu gerai kad jo nebutu)
>>>
>>>
>>>
>>>
>>> "Raimis" <no@mail.com> wrote in message
>>> news:h5om6d$t6t$1@trimpas.omnitel.net...
>>>> cia "greitukas" . I forma teks isideti button, texbox, label (
>>>> defaultiniai vardai nekeisti) ir
>>>> pasikoreguoti atitinkamas konstantas, failo pavadinima
>>>>
>>>>
>>>> Imports Microsoft.VisualBasic.FileIO
>>>> Imports System.Text
>>>> Imports System.Collections
>>>> Imports System.Collections.Specialized
>>>>
>>>> Public Class Form1
>>>>    Dim filename As String = "h:\Test.csv"
>>>>    Const STULPELIS_ID = 1
>>>>    Const STULPELIS_REIKSME = 4
>>>>    Const STULPELIU_SKIRTUKAS = ","
>>>>
>>>>    Dim myVal As New StringDictionary()
>>>>    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>>>> System.EventArgs) Handles MyBase.Load
>>>>
>>>>        Me.Label1.Text = ""
>>>>        Dim fields As String()
>>>>        Using parser As New TextFieldParser(filename)
>>>>            parser.SetDelimiters(STULPELIU_SKIRTUKAS)
>>>>
>>>>            While Not parser.EndOfData
>>>>                ' Read in the fields for the current line
>>>>                fields = parser.ReadFields()
>>>>                myVal.Add(fields(STULPELIS_ID - 1),
>>>> fields(STULPELIS_REIKSME - 1))
>>>>
>>>>            End While
>>>>        End Using
>>>>
>>>>    End Sub
>>>>
>>>>    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
>>>> System.EventArgs) Handles Button1.Click
>>>>        Dim myKey As String = Me.TextBox1.Text
>>>>        If myVal.ContainsKey(myKey) Then
>>>>            Me.Label1.Text = myVal(myKey)
>>>>        Else
>>>>            Me.Label1.Text = "nera"
>>>>        End If
>>>>    End Sub
>>>> End Class
>>>>
>>>>
>>>>
>>>> "Joint_as" <a@a.com> wrote in message
>>>> news:h5h76g$urc$1@trimpas.omnitel.net...
>>>>> Sveiki,
>>>>> gal kas gali parasyt paprasta skriptuka MS Visual Basic 2008 EE.
>>>>>
>>>>> Formoje tik paieskos laukas + mygtukas ir surandamos reiksmes 
>>>>> isvedimas.
>>>>> Ieskoma is  .csv failo.
>>>>> Ivedama i paieska csv failo eilutes pirmo stulpelio reiksme (id) ir
>>>>> surandama ir isvedama i ekrana pvz. tos eilutes 4 stulpelio reiksme.
>>>>>
>>>>> Aciu
>>>>>
>>>>>
>>>
>>>
>>
>>