Visual Basic i Data

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.

bump bump!

A gde si konkretno zapeo?

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

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:


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

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 ) ???

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:

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 ?!

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:

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