[es] - Visual Basic i Data

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.

+9 Profil

^{24.07.2011. u 15:47 - pre 155 meseci}

Pozdrav !
Evo nemam puno znanja u VB-u ali radim na njemu nekoliko mjeseci,sad isprobavam ovo i ono,znate kako to već ide.

Zanima me kako se radi recimo ovo što ću sad navesti:

Imam želju napraviti si program u VB-u,gdje ću si pospremati,neke svoje codove programa ili tutore,ali da to
bude onako automatski.
Recimo imam neki tut u ( .txt) formatu ,taj tut kopiram(copy\paste) u taj svoj program i pospremam ga u svoju bazu,kako bi ga
kasnije mogao samo pozvati npr.klikom na ime tog tutora.

Nadam se da razumijete.
Zanima me samo kako se to radi,na koji način i meni najlakše.
Ne tražim kodove takvog programa,već mi to treba za shvačanje baze podataka.

Sad recimo imam napravljen program u VB-u koji može upisani text spremiti u txt file,ali onda nemogu automatizirati da taj isti pozovem na neki jednostavni način,već trebam za svaki takav spremljeni txt file otvarati ponovno VB i upisivati naziv tog file-a da bi ga onda kasnije mogao pozvati kako sam opisao.

Odgovor na temu

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.

+9 Profil

Re: Visual Basic i Data

^{29.07.2011. u 14:08 - pre 155 meseci}

bump bump!

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.adsl.verat.net.

+6455 Profil

Re: Visual Basic i Data

^{29.07.2011. u 14:36 - pre 155 meseci}

A gde si konkretno zapeo?

Odgovor na temu

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.

+9 Profil

Re: Visual Basic i Data

^{29.07.2011. u 16:40 - pre 155 meseci}

Znaći na tom programu koji može učitavati moje spremljene txt fajlove,ne znam kako dodati string iz mog kombobox-a u "string collection editor" ,a to je potrebno da bi taj moj program radio.
Evo koda:
Imports System.IO
Imports System.Windows.Forms.Clipboard

Public Class Form1
Public Sub mouse()
If MouseButtons.Right Then
RichTextBox1.SelectedText = Clipboard.GetText
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyNumbers(4) As String

Dim i As Integer

MyNumbers(0) = "OpenFD"
MyNumbers(1) = "SaveFileDialog"
MyNumbers(2) = "KeyCode"
MyNumbers(3) = "sintakse"

Dim polja(4) As String
polja(0) = "najnoviji ispravan cod"

For i = 0 To 4
Next i

If ComboBox1.SelectedItem = MyNumbers(0) Then
Dim FileReader As New StreamReader("D:\notpadVB\openFD.TXT")
RichTextBox1.Text = FileReader.ReadToEnd()

FileReader.Close()
Label1.Text = ("OpenFileDialog")
End If
If ComboBox1.SelectedItem = MyNumbers(1) Then
Dim FileReader As New StreamReader("D:\notpadVB\Savefiledialog.TXT")
RichTextBox1.Text = FileReader.ReadToEnd()

FileReader.Close()
Label1.Text = ("SaveFileDialog")

End If

If ComboBox1.SelectedItem = MyNumbers(2) Then
Dim FileReader As New StreamReader("D:\notpadVB\KeyCode.TXT")
RichTextBox1.Text = FileReader.ReadToEnd()

FileReader.Close()
Label1.Text = ("KeyCode")
End If
If ComboBox1.SelectedItem = MyNumbers(3) Then
Dim FileReader As New StreamReader("D:\notpadVB\sintakse.TXT")
RichTextBox1.Text = FileReader.ReadToEnd()

FileReader.Close()
Label1.Text = ("sintakse")
End If
If ComboBox1.SelectedItem = polja(0) Then
Dim FileReader As New StreamReader("D:\notpadVB\najnoviji ispravan keylogg.TXT")
RichTextBox1.Text = FileReader.ReadToEnd()

FileReader.Close()
Label1.Text = ("Najnoviji ispravan cod")
End If
End Sub

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

Dim results As DialogResult

If ComboBox1.Text = "" Then

MsgBox("Odaberite naziv spremljenog dokumenta !")

Else

SaveFileDialog1.InitialDirectory = ("d:\notpadvb\")
SaveFileDialog1.FileName = ComboBox1.Text

SaveFileDialog1.Filter = "text files(*.txt)|*.txt"

results = SaveFileDialog1.ShowDialog
End If

If results = DialogResult.OK Then

FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)

FileWriter.Write(RichTextBox1.Text)

FileWriter.Close()

ComboBox1.Items.Add(ComboBox1.Text)
If RichTextBox1.ReadOnly = False Then
RichTextBox1.ReadOnly = True
End If
MsgBox("Datoteka je spremljena !")

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Clipboard.SetDataObject(RichTextBox1.SelectedText, True)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If RichTextBox1.ReadOnly = True Then
RichTextBox1.ReadOnly = False
RichTextBox1.Text = ""
Label1.Text = ("Unesi Kod...")
End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
RichTextBox1.SelectedText = Clipboard.GetText

End Sub
End Class

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.adsl.verat.net.

+6455 Profil

Re: Visual Basic i Data

^{29.07.2011. u 17:34 - pre 155 meseci}

Malo si zakomplikovao sve, ali evo jedne prostije verzije. Program prilikom pokretanja učitava sve .txt fajlove iz tekućeg foldera u ListView1. Sadržaj se prikazuje u RichTextBox1, i dodano je nekoliko butona za upravljanje. Fajlovi se čitaju kao PlainText stream type, tako da ako hoćeš da zadržiš i formatiranje, onda moraš da staviš "RichTextBoxStreamType.PlainText" za stream type.

Na formi se nalaze:
ListView1 (tu se nalazi spisak fajlova)
RichTextBox1 (sadržaj učitanog fajla)

Buttoni:
btnRefresh (osvežava listu fajlova)
btnLoad (učitava izabrani fajl iz ListView1 u RichTextBox1)
btnNew (prazni RichTextBox1)
btnSave (poziva save diajlog i snima fajl)

A ovo je kod:

Code:

Public Class Form1

    '' MOJE PRIVATNE FUNKCIJE

    Private Function UpdateFileList()
        ListView1.Items.Clear()

        Dim folderInfo As New IO.DirectoryInfo(Environment.CurrentDirectory())
        Dim arrFilesInFolder() As IO.FileInfo
        Dim fileInFolder As IO.FileInfo

        arrFilesInFolder = folderInfo.GetFiles("*.txt")
        For Each fileInFolder In arrFilesInFolder
            ListView1.Items.Add(fileInFolder.Name)
        Next
    End Function

    Private Function LoadFile()

        Dim FileName As String = ListView1.SelectedItems(0).Text
        Try
            RichTextBox1.LoadFile(FileName, RichTextBoxStreamType.PlainText)
        Catch ex As Exception
            MsgBox("Nisam uspeo učitati fajl, format nije odgovarajući.")
        End Try

    End Function

    '' KONTROLE SA FORME

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UpdateFileList()
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        UpdateFileList()
    End Sub

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        LoadFile()
    End Sub

    Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        LoadFile()
    End Sub

    Private Sub btnNewFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewFile.Click
        RichTextBox1.Text = ""
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        SaveFileDialog1.DefaultExt = ".txt"
        SaveFileDialog1.Filter = "Text Files|*.txt"
        SaveFileDialog1.InitialDirectory = Environment.CurrentDirectory()
        SaveFileDialog1.ShowDialog()

        If SaveFileDialog1.FileName <> "" Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If

        UpdateFileList()
    End Sub

End Class

Dole ti je prikačen ceo projekat, Visual Studio 2005.

Prikačeni fajlovi

ES_CodeLibrary.zip - 58.05k

Odgovor na temu

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.

+9 Profil

Re: Visual Basic i Data

^{29.07.2011. u 19:05 - pre 155 meseci}

DA,može i tako puno je jednostavnije,hvala !
Ako mi nešt neće biti jasno javit ću ti se još !

EJ,ček malo nije mi jasno gdje se nalaze sad ti fajlovi ?
SaveFileDialog1.InitialDirectory = Environment.CurrentDirectory() ?? Gdje je tu path do filea? Jel to znaći da su txt file u datoteki koju on stvara za program ?!
Pošto je Environment.CurrentDirectory() ?!? Što onda predstavlja (Environment ) ???

_{[Ovu poruku je menjao CORSA dana 29.07.2011. u 20:22 GMT+1]}

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.adsl.verat.net.

+6455 Profil

Re: Visual Basic i Data

^{29.07.2011. u 19:35 - pre 155 meseci}

Environment.CurrentDirectory() je putanja do EXE fajla koji si pokrenuo, što znači da on izlista sve TXT fajlove koji se nalaze u istom folderu kao i aplikacija koju si pokrenuo.

Umesto toga, možeš da staviš i direktnu putanju, npr:

Code:

Dim folderInfo As New IO.DirectoryInfo("C:\BazaFajlova")

SaveFileDialog1.InitialDirectory = "C:\BazaFajlova"

Odgovor na temu

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.

+9 Profil

Re: Visual Basic i Data

^{29.07.2011. u 20:06 - pre 155 meseci}

Hvala majstore ,sad ću se pozabavit s tvojim primjerom da cijelog shvatim.

Majstore ,zbog čeg mi sad ne valja ovaj kod ?

RichTextBox1.SelectedText = Clipboard.GetText

za kopiranje u clipboard ?!

_{[Ovu poruku je menjao CORSA dana 29.07.2011. u 23:26 GMT+1]}

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.adsl.verat.net.

+6455 Profil

Re: Visual Basic i Data

^{29.07.2011. u 23:48 - pre 155 meseci}

Taj kod liči na PASTE u RichTextBox, a ne za COPY u clipboard.

Ispravna sintaksa za paste bi bila sledeća:
RichTextBox1.Text = Clipboard.GetData(DataFormats.Text)

Mada što bi komplikovao sa ovim kad možeš samo da kažeš:
RichTextBox1.Paste()

Kopiranje u clipboard je nešto komplikovanije jer moraš da specificiraš šta kopiraš (tekst, slika, zvuk...), ali nije nešto specijalno komplikovano.

Ako na formi imaš dva buttona za copy/paste koja se zovu:
btnCopy
btnPaste

kod koji ti treba je ovaj:

Code:
    Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
        Dim data_object As New DataObject
        data_object.SetData(DataFormats.Text, RichTextBox1.Text)
        Clipboard.SetDataObject(data_object)
    End Sub

    Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click
        RichTextBox1.Text = ""
        RichTextBox1.Paste()
    End Sub

Odgovor na temu

CORSA
vlado vuči9nić
eco,viličar
Hrvatska

Član broj: 284929
Poruke: 68
*.adsl.net.t-com.hr.

+9 Profil

Re: Visual Basic i Data

^{30.07.2011. u 13:13 - pre 155 meseci}

Sad mi još objasni kako obrisati selektirani file u ListView1 iz direktorija(txt) ?

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.adsl.verat.net.

+6455 Profil

Re: Visual Basic i Data

^{30.07.2011. u 13:27 - pre 155 meseci}

To si mogao da nađeš na googlu za cirka 10 sekundi...

"VB.NET delete file"

Code:

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim FileToDelete As String
        FileToDelete = ListView1.SelectedItems(0).Text

        If System.IO.File.Exists(FileToDelete) = True Then
            System.IO.File.Delete(FileToDelete)
            MsgBox("Fajl obrisan")
        End If
        RichTextBox1.Text = ""
        UpdateFileList()
    End Sub

Odgovor na temu