サブストリング - - 範囲の例外のうち引数startIndexパラメータ

Question

は私がTextBox1テキストボックスに次の文字列を持っていると仮定します。FPO100200％を10 & FORD *

さて、私はTextBox1をの部分文字列からデータを取得し、2つの以上のテキストボックスを持っています。できるだけ早く私はtextbox3の行を追加としてtexbox2にサブFPO100200を取得しようとして

Public Class Form1 
Private Function textmoves(mytext As String, indexchar As String) 
    Dim Index As Integer = mytext.IndexOf(indexchar) 
    Return Index 
End Function 
Private Sub Splittext() 
    Dim text As String = TextBox1.Text 
    TextBox2.Text = text.Substring(0, textmoves(text, "%")) 
    TextBox3.Text = text.Substring(textmoves(text, "%"), textmoves(text, "&")) 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Splittext() 
End Sub 

エンドクラス

イム、その後、texbox3でサブ10.

、：私は、次のコードを持っていますそれは私に範囲外のエラーの引数を投げた。何が間違っているのか教えていただけますか？どうもありがとう！

LE：また、ボタンを押さずに自動的にtextbox1でテキストが変更されたときに、そのテキストボックスにデータを入力させることはできますか？

Answer 1

第2パラメータは、終了位置ではなく長さです。最初の式が位置付けられたのは、最初のインデックスがゼロであるためです。今、私は私のミスを参照してください"10"使用

TextBox3.Text = text.Substring(textmoves(text, "%")+1, textmoves(text, "&")-textmoves(text, "%")-1) 

またはより良い

Dim pos As Integer = textmoves(text, "%") 
TextBox2.Text = text.Substring(0, pos) 
TextBox3.Text = text.Substring(pos+1, textmoves(text, "&")-pos-1) 

Demo.

Answer 2

2番目のパラメータは、インデックス0から始めるが、％のインデックスから始まっているときの&のインデックスです。だから、％Indexを& Indexから引く必要があります。

TextBox3.Text = text.Substring(textmoves(text, "%"), textmoves(text, "&") - textmoves(text, "%"))