Morgen miteinander
Ich habe folgendes Problem und zwar habe ich mir für nen Facebook Chat Code Manager erstellt .
Und das dieser variabel bleibt list er nun text Dateien aus.
Das sieht dann wie folgt aus :
Listbox 1 wird nur der Dateiname ohne Endung = ok
Wird der Name in Listbox1 angeklickt wird das entsprechende Textdokument ausgelesen
und der inhalt in die Zwischenablage kopiert = ok
NUN DAS PROPLEM 1:
Wie lautet der Befehl - EINFÜGEN - als Code ? (( Ich meine so wie - RECHTE MAUSTASTE - EINFÜGEN ))
ENDE PROBLEM 1
PROBLEM 2: (( Der String verhaut die Ausgabe )
Folgender Aufbau:
Es werden mehrere Textboxen zeilenweise in eine Textdatei eingelesen = OK
Nun habe ich die gefüllte Textdatei deren Inhalt ich jetzt wie folgt nutzen möchte (( SIHE CODE 2 )) - doch ab (( C )) gibts Fehler in der Ausgabe
VIELENN DANK IM VORAUS
Ich habe folgendes Problem und zwar habe ich mir für nen Facebook Chat Code Manager erstellt .
Und das dieser variabel bleibt list er nun text Dateien aus.
Das sieht dann wie folgt aus :
Listbox 1 wird nur der Dateiname ohne Endung = ok
Wird der Name in Listbox1 angeklickt wird das entsprechende Textdokument ausgelesen
und der inhalt in die Zwischenablage kopiert = ok
NUN DAS PROPLEM 1:
Wie lautet der Befehl - EINFÜGEN - als Code ? (( Ich meine so wie - RECHTE MAUSTASTE - EINFÜGEN ))
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- '(( form1 ))beim öffnen der form ordner erstellen und auslesen
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- TopMost = True
- ListBox1.Items.Clear()
- System.IO.Directory.CreateDirectory("C:\EMOTICONS")
- 'ausgewählten ordner auslesen und in listbox schreiben-ohne endung -txt
- For Each File As String In System.IO.Directory.GetFiles("C:\EMOTICONS", "*.txt")
- ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(File))
- Next
- End Sub
- '(( listbox1 )) gewählte datei bei selection an Listbox.1 übergeben.
- Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
- Try
- If ListBox1.SelectedIndex < ListBox1.Items.Count Then
- ListBox1.SelectedIndex = ListBox1.SelectedIndex.ToString
- ListBox1.SelectionMode = SelectionMode.One
- TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex).ToString
- End If
- 'selectet auswahl in textbox schreiben
- Dim Pfad As String = "C:\EMOTICONS\" & ListBox1.Items(ListBox1.SelectedIndex).ToString
- TextBox1.Text = System.IO.File.ReadAllText(Pfad & ".txt")
- ' Dim sauber As String = (TextBox1.Text)
- ' sauber = Replace(sauber, vbLf, "").Replace("", "")
- ' TextBox1.Text = sauber
- Catch ex As Exception
- End Try
- 'selectet auswahl in zwischenablage kopieren
- Try
- My.Computer.Clipboard.SetText(TextBox1.Text)
- Catch ex As Exception
- End Try
- ListBox1.Sorted = True
- End Sub
- '(( listbox1 ))selected auswahl mit rechter maustaste aufheben
- Private Sub FileListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Right Then
- ListBox1.SelectedIndex = ListBox.NoMatches
- TextBox1.Clear()
- My.Computer.Clipboard.Clear()
- End If
- End Sub
- 'ordner öffnen
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- System.Diagnostics.Process.Start("explorer", "C:\EMOTICONS")
- End Sub
- 'ordner auslesen refresh
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- ListBox1.Items.Clear()
- System.IO.Directory.CreateDirectory("C:\EMOTICONS")
- 'ausgewählten ordner auslesen und in listbox schreiben-ohne endung -txt
- For Each File As String In System.IO.Directory.GetFiles("C:\EMOTICONS", "*.txt")
- ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(File))
- Next
- TextBox1.Clear()
- My.Computer.Clipboard.Clear()
- End Sub
- End Class
ENDE PROBLEM 1
PROBLEM 2: (( Der String verhaut die Ausgabe )
Folgender Aufbau:
Es werden mehrere Textboxen zeilenweise in eine Textdatei eingelesen = OK
Nun habe ich die gefüllte Textdatei deren Inhalt ich jetzt wie folgt nutzen möchte (( SIHE CODE 2 )) - doch ab (( C )) gibts Fehler in der Ausgabe
VB.NET-Quellcode
- Dim lines() As String = System.IO.File.ReadAllLines("C:\EMOTICONS\keys\keys.cfg")
- '(( A-Z & a-z )) in code umsetzen
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim a As String = TextBox1.Text
- a = a.Replace("A", lines(0).ToString)
- a = a.Replace("B", lines(1).ToString)
- a = a.Replace("C", lines(2).ToString)
- a = a.Replace("D", lines(3).ToString)
- a = a.Replace("E", lines(4).ToString)
- a = a.Replace("F", lines(5).ToString)
- a = a.Replace("G", lines(6).ToString)
- a = a.Replace("H", lines(7).ToString)
- a = a.Replace("I", lines(8).ToString)
- a = a.Replace("J", lines(9).ToString)
- a = a.Replace("K", lines(10).ToString) 'usw
- TextBox2.Text = a
VIELENN DANK IM VORAUS
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()