如何提取所选 richtextbox 行的一部分并将其复制到文本框中

Question

我在 richtextbox 中有这个输出

0.00001148 - 324.8K
0.00001137 - 452.4K
0.00001125 - 1.4M
0.00001114 - 436.9K
0.00001103 - 111.6K
0.00001092 - 351.8K
0.00001081 - 433.1K
0.00001071 - 320.9K
0.0000106 - 344K
0.0000104 - 9.9K

并通过我正在使用的 richtextbox 的鼠标点击事件

Dim firstcharindex As Integer = RichTextBox1.GetFirstCharIndexOfCurrentLine()
Dim currentline As Integer = RichTextBox1.GetLineFromCharIndex(firstcharindex)
Dim currentlinetext As String = RichTextBox1.Lines(currentline)
RichTextBox1.Select(firstcharindex, currentlinetext.Length)

到select RichTextBox 的单行。

我现在想提取 selected 行的第一个数字（双精度或小数）并将其复制到文本框中。例如。选择行 0.00001148 - 324.8K 会将值 0.00001148 发送到文本框。

谢谢

Answer 1

Dim currentlinechosen As String = Mid(currentlinetext, 1, InStr(currentlinetext, " -") - 1)
    MsgBox(currentlinechosen)

只需将当前选择的行分配给文本框

Answer 2

您可以将选定的行转换为文本字符串：

dim sel_line as string = currentline.ToString()

然后通过在“-”上拆分来提取该行的第一部分：

dim temp_string as String() = sel_line.split("-")

然后 temp_string 的第一个索引将包含您的号码

textbox.text = temp_string(0)

如何提取所选 richtextbox 行的一部分并将其复制到文本框中

How to extract part of a selected richtextbox line and copy it into a textbox

vb.net