Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/webpack/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 拆分文本文档导致奇怪的字符串_Vb.net_Split - Fatal编程技术网

Vb.net 拆分文本文档导致奇怪的字符串

Vb.net 拆分文本文档导致奇怪的字符串,vb.net,split,Vb.net,Split,因此,我有一段代码,它有效地试图从名为users.txt的.txt文件中获取文本,并将不同的值拆分为每个“|”符号,以便可以将其读取到数组中 文本文件看起来有点像这样,第一行是格式: MachineName|UserName|Password| FOXYCOMPUTER|Harry|itsasecret| 我的目标是将不同的字符串加载到数组中,以便在val变量中显示时看起来像这样: val0:MachineName val1:用户名 val2:密码 val3:FOXYCOMPUTER 瓦尔

因此,我有一段代码,它有效地试图从名为users.txt的.txt文件中获取文本,并将不同的值拆分为每个“|”符号,以便可以将其读取到数组中

文本文件看起来有点像这样,第一行是格式:

MachineName|UserName|Password|  
FOXYCOMPUTER|Harry|itsasecret|
我的目标是将不同的字符串加载到数组中,以便在val变量中显示时看起来像这样:

val0:MachineName
val1:用户名
val2:密码
val3:FOXYCOMPUTER
瓦尔4:哈利
val5:ItsaCret

编写“dim val0 As String”组只是为了测试结果。我得到的不是我上面所期望的,而是:

val0:“System.Windows.Forms.RichTextBox,文本:MachineName”
val1:“用户名”
val2:“密码”
val3:“&vbLf&“FOXYCOMPU…”的值
val4:错误消息:索引超出了数组的界限。
第5段:

这不是我的全部代码,但希望这是所有与错误相关的代码

         Dim filetext As New RichTextBox
         Dim directory As String = My.Application.Info.DirectoryPath
         Dim filePath As String = directory & "\users.txt"
         Dim textvaluesArr() As String

         filetext.Text = File.ReadAllText(filePath)

        'split all text into array of each values
        textvaluesArr = filetext.ToString.Split(New [Char]() {CChar("|")})  '***I've been experimenting with this line, but can't find anything that will work 100% for me

        Dim val0 As String = textvaluesArr(0)
        Dim val1 As String = textvaluesArr(1)
        Dim val2 As String = textvaluesArr(2)
        Dim val3 As String = textvaluesArr(3)
        Dim val4 As String = textvaluesArr(4)
        Dim val5 As String = textvaluesArr(5)

注意:如果我还不能很好地解释这一点,我可以创建一个指向我的项目的谷歌驱动链接,让一个勇敢的灵魂去冒险。或者,您可以要求更多位,您的问题在这一行:

textvaluesArr = filetext.ToString.Split(New [Char]() {CChar("|")})
正在获取RichTextBox控件及其内容的字符串表示形式

您需要的是
Text
属性,它是控件的内容,如下所示:

textvaluesArr = filetext.Text.Split(New [Char]() {CChar("|")})

哇!它不仅速度极快,而且一句话就解决了我的问题。很失望,我以前没有想到。感谢您的快速和有帮助的回复,我会在10分钟计时器结束后将您的答案标记为已接受:)