ＶＢ２００５ 初心者です。

質問

文書中の番号を振りなおしたいのですが、やり方がよく分かりません。

Dim a As String=textbox1.text
Dim b As Integer=a.IndexOf("【作品番号")
Dim c As String=a.Substring（b,5）
Dim d As Integer=c.Length
Do While b <> -1
b=a.Indexof（"【作品番号",b+1）
d=d+5
Loop

Dim f As Integer=Cstr((d-5)/5)
Dim g As Integer=0
g=g+1
For h As Integer=1 To f
Dim i As String=textbox1.text.Replace("【作品番号","【作品番号" & h & "】")
Next

最初のループまでで文章中に【作品番号＊】がいくつあるかを調べて、(f回)その回数文だけまたループを回して番号を振りたいのですが、何もおきません。

本当に初心者なので、皆さんが見たらありえない構文かも知れませんが、ご教授願います。。。
ちなみに、作品番号は２桁３桁にもなることもあり、全角の数字にしたいのです。
よろしくお願い致します。

回答No.1

himajin100000 · ベストアンサー

'良く解らんものを書いてしまった。

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "【作品番号1】【作品番号5】【作品番号9】【作品番号B】【作品番号-2】【作品番号4】【作品番号１】【作品番号P】【作品番号D】【作品番号Q】【作品番号N】"
'a = TextBox1.Text
Dim b As Integer = 0

MessageBox.Show(a.Length.ToString)
Dim MatchObj As Match = Regex.Match(a, "【作品番号.*?】")
Dim index As Integer = 0
Do While MatchObj.Success = True

a = a.Substring(0, MatchObj.Index - b) & "【作品番号" & StrConv(i.ToString, VbStrConv.Wide) & "】" & a.Substring(MatchObj.Index + MatchObj.Length - b)
b = b + MatchObj.Length - 6 - Convert.ToInt32(Math.Floor(Math.Log10(i))) - 1

MatchObj = MatchObj.NextMatch
Loop
MessageBox.Show(a)
End Sub

End Class

お礼

回答ありがとうございます。お礼がおそくなり大変申し訳ありません。
私にはまだ分からないところがたくさんあって理解しきれないのですが、
>b = b + MatchObj.Length - 6 - Convert.ToInt32(Math.Floor(Math.Log10(i))) - 1
ここのiが指定されていなくてエラーになりました。
あと、上のほうの"【作品番号1】【作品番号5】【作品番号9】【作品番号B】・・・というのはなにを表しているのでしょうか？
もしよろしければ教えていただきたいです。

回答No.3

himajin100000

'ん？
'確かに宣言部で
'Dim Index As Integer = 1
'にしないとエラーが出たが、正常動作しているぞ、こっちでは。

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "【作品番号1】【作品番号5】【作品番号9】【作品番号B】【作品番号-2】【作品番号4】【作品番号１】【作品番号P】【作品番号D】【作品番号Q】【作品番号N】"
'a = TextBox1.Text
Dim b As Integer = 0

Dim MatchObj As Match = Regex.Match(a, "【作品番号.*?】")
Dim index As Integer = 1
Do While MatchObj.Success = True

a = a.Substring(0, MatchObj.Index - b) & "【作品番号" & StrConv(index.ToString, VbStrConv.Wide) & "】" & a.Substring(MatchObj.Index + MatchObj.Length - b)
b = b + MatchObj.Length - 6 - Convert.ToInt32(Math.Floor(Math.Log10(index))) - 1

MatchObj = MatchObj.NextMatch
index = index + 1
Loop
System.Windows.Forms.MessageBox.Show(a)
End Sub

End Class

お礼

できました！！こんな初心者の私に最後まで親切に教えていただいて本当にありがとうございます！！きちんと数字が並んで感動しました☆
自分でどれだけ考えても分からなかったので、すっごく助かりました。
ありがとうございました！

回答No.2

himajin100000

>ここのiが指定されていなくてエラーになりました。
あ。元々For文で書いていたのを削除しちゃったからですね(汗
全部iをindexに変えて
Loop前にindex = index + 1かな？多分(汗

>"【作品番号1】【作品番号5】【作品番号9】【作品番号B】・・・"
というのはなにを表しているのでしょうか？

プログラムが正しく動くかどうか確認するためのテストデータです。
実際に使う時には
変数にTextbox1.textなどの値を格納してください。
番号が順番にそろいます
【作品番号K】aaa【作品番号N】
とかも
【作品番号2】aaa【作品番号3】
とかになってくれます

お礼

回答ありがとうございます。
Loop前にindex = index + 1　を入れて、【作品番号1】【作品番号5】・・・を　Textbox1.text　にしました。
そして間のMessageBox.Show(a.Length.ToString)を消して、
最後のMessagebox.Show(a)をTextbox1.text=a にしました。
エラーはでないのですが、すべてが【作品番号1】になっていしまいました。
ここまでできたこと自体嬉しいのですが、原因が分かれば教えていただきたいです。
長期に渡り回答していただき本当に感謝しています。ありがとうございます。