IndexOfの文字を取得する

Question

私の先生は、私たちの名前の文字を見つけてフォームの上部にあるラベルに置くことをファイルから読みとるように求めています。ここ

が私のコードです：私のLBLに読んでいる

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    searchFile = File.OpenText("AcademicEthicsandIntegrityStatement.txt") 


    Dim s As String = searchFile.ReadToEnd 
    Dim b As String = s.IndexOf("b"c) 
    Dim r As Integer = s.IndexOf("r"c) 
    Dim i As Integer = s.IndexOf("i"c) 
    Dim a As Integer = s.IndexOf("a"c) 
    Dim n As Integer = s.IndexOf("n"c) 
    Dim ec As Integer = s.IndexOf("e"c) 

    Dim bRead = GetChar(s, b) 
    Dim rRead = GetChar(s, r) 
    Dim iRead = GetChar(s, i) 
    Dim aRead = GetChar(s, a) 
    Dim nRead = GetChar(s, n) 
    Dim ecRead = GetChar(s, ec) 
    lblName.Text = bRead + rRead + iRead + aRead + nRead + nRead + ecRead 
End Sub 

テキストではなく、「brianne」の「gmcaad」である

イム私はここで何かをしないのですかあまりがあることを確認してくださいこれを行う簡単な方法。どんな助けもありがとうございます。

Answer 1

IndexOfは、0から始まるインデックスを返します。
GetCharは1から始まるインデックスを受け入れます。一貫性を保つため

、

• あなたがIndexOfを使用したい場合は、代わりにGetCharの直接インデックスを使用します。

  Dim bRead = s(b) 
  Dim rRead = s(r) 
  

• あなたがGetCharを使用したい場合は、代わりにIndexOfのInStrを使用1つの値を返します。

Answer 2

短い答え...大文字と小文字を区別：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    With File.ReadAllText("AcademicEthicsandIntegrityStatement.txt") 
     For Each C As Char In "Brianne".ToCharArray 
      ' Note this is case-sensitive because it uses a binary comparison 
      Dim Index As Integer = .IndexOf(C) 
      If Index >= 0 Then lblName.Text &= .Substring(Index, 1) 
     Next 
    End With 
End Sub 

...と非大文字と小文字を区別します。オプション厳密に

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    With File.ReadAllText("AcademicEthicsandIntegrityStatement.txt") 
     For Each C As Char In "Brianne".ToCharArray 
      ' Note this is not case-sensitive 
      Dim Index As Integer = .IndexOf(C.ToString, StringComparison.InvariantCultureIgnoreCase) 
      If Index >= 0 Then lblName.Text &= .Substring(Index, 1) 
     Next 
    End With 
End Sub