Alex White
Grünschnabel
Hallo
Also ich will ein Programm schreiben, dass automatisch die Daten in der Zwischenablage formatiert und dann gleich wieder zurück an die Zwischenablage sendet.
das sind die daten:
VP$IP:
51.02%
Af:
2.91
CC:
44.31%
C-Bet:
75.09%
WtSD:
27.78%
Pfr:
14.92%
Afq:
58.09%
3bet:
7.80%
4bet:
13.85%
W$SD:
42.86%
formatiert werden sollte es so:
51/15 | 8% 3bet | 2.9 AF | 58 AFQ | 28 WTS | 43 W$SD | 14% 4bet | 75% cbet
Also mache ich es mit Clipboard.getfile dann den array splitten und die benötigten Daten an Clipboard senden
nur habe ich ein Problem, undzwar wenn ich das mit einen Timer mache, wird es zu ner "endlosschleife" ich muss also irgendwie das senden (an Clipboard) unterbrechen und wenn ich erneut STRG+C drücke die Prozdur wieder starten.
Die frage ist, wie mache ich das bloß?
Jetzt habe ich das mal mit einem Button statt Timer gemacht:
Button1 Code:
Das sollte alles im Timer, damit es automatisch geht.. Nur wie
Also ich will ein Programm schreiben, dass automatisch die Daten in der Zwischenablage formatiert und dann gleich wieder zurück an die Zwischenablage sendet.
das sind die daten:
VP$IP:
51.02%
Af:
2.91
CC:
44.31%
C-Bet:
75.09%
WtSD:
27.78%
Pfr:
14.92%
Afq:
58.09%
3bet:
7.80%
4bet:
13.85%
W$SD:
42.86%
formatiert werden sollte es so:
51/15 | 8% 3bet | 2.9 AF | 58 AFQ | 28 WTS | 43 W$SD | 14% 4bet | 75% cbet
Also mache ich es mit Clipboard.getfile dann den array splitten und die benötigten Daten an Clipboard senden
nur habe ich ein Problem, undzwar wenn ich das mit einen Timer mache, wird es zu ner "endlosschleife" ich muss also irgendwie das senden (an Clipboard) unterbrechen und wenn ich erneut STRG+C drücke die Prozdur wieder starten.
Die frage ist, wie mache ich das bloß?
Jetzt habe ich das mal mit einem Button statt Timer gemacht:
Button1 Code:
Code:
TextBox1.Text = Replace(TextBox1.Text, "%", "% | ")
TextBox1.Text = Replace(TextBox1.Text, Chr(10), "")
Replace(TextBox1.Text, "%", "% ")
Replace(TextBox1.Text, Chr(10), " ")
If TextBox1.Text = "" Then
Else
Dim somestring2() As String
somestring2 = TextBox1.Text.Split("|")
somestring2(1) = somestring2(1).Remove(9, 11)
For i = 0 To somestring2.Length - 1
TextBox1.Text = somestring2(6) + somestring2(1) + somestring2(5) + somestring2(3) + somestring2(8) + somestring2(7) + somestring2(2)
Next
End If
If TextBox1.Text = "" Then
Else
Clipboard.SetText(TextBox1.Text)
End If
Das sollte alles im Timer, damit es automatisch geht.. Nur wie