VB.netで指定した部分の文字列を置換するには？ (ID:110013)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

細かいところまで検討はしてないけれど概念的に
    '読み込み
    Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
        Dim sr As System.IO.StreamReader
        OpenFileDialog1.ShowDialog()
        'shift-jisを変換して読み込む
	sr = New System.IO.StreamReader(OpenFileDialog1.FileName, _
        System.Text.Encoding.GetEncoding("shift-jis"))
        TextBox2.Text = sr.ReadToEnd()
        sr.Close()
    End Sub
   
    '書き込み
    Private Sub Button3_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button3.Click
        Dim sr As System.IO.StreamWriter
        sr = New System.IO.StreamWriter("text2.txt", _
        True, System.Text.Encoding.Default)
        sr.Write(TextBox2.Text)
        sr.Close()
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button4.Click
        Dim s(Len(TextBox2.Text)) As String
        Dim ss As String
        Dim n As Integer
        For n = 0 To Len(TextBox2.Text) - 1
            s(n) = TextBox2.Text.Substring(n, 1)
            If Asc(s(n)) < 0 Then s(n) += Chr(1) '全角だったらChr(1)を追加
            ss += s(n)
        Next n
        '文字の入れ替え
        Dim b As String = "あいうえお" '入れ替える文字
        ss = ss.Remove(4 * 2, 5 * 2)
        ss = ss.Insert(4 * 2, b)
        ss = ss.Replace(Chr(1), "")   '追加文字の削除  
        TextBox2.Text = ss
    End Sub
    
    要するにTextファイルには絶対に現れないChr(1)を全角文字の後ろに挿入して
    長さをあわせる、後は文字を入れ替えて、Chr(1)を消す。
    大体こんな感じで。後はGood luck!

←解決時は質問者本人がここをチェックしてください。

戻る