VB正则表达式的应用问题

Question

请问:在VB6.0中怎么用正则表达式来将4-3-2-401转换成某某花园4期3区2幢401室呢？

Answer 1

http://www.hahacode.com/hahacode/view.asp?articleid=633http://www.cnblogs.com/topboy168/archive/2008/01/28/1055447.html这个两个网页看一下好了。

Answer 2

难道要这样搞？
  Dim strA As String
    Dim strB As String
    Dim strC As String
    strA = "4-3-2-401"
    strB = "期区幢室"
    Dim i, j As Integer
    j = 1
    Do
        i = InStr(strA, "-")
        If i = 0 Then Exit Do
        strC = Replace(Mid(strA, 1, i), "-", Mid(strB, j, 1))
        strA = strC & Mid(strA, i + 1)
        j = j + 1
    Loop
    strA = strA & Mid(strB, 4, 1)

Answer 3

Private Sub Command1_Click()
Dim Data As String
Dim arr() As String
Dim arrLine As String
Data = "4-3-2-401"
arr = Split(Data, "-")
'4期3区2幢401室
arrLine = arr(0) & "期" & arr(1) & "区" & arr(2) & "幢" & arr(3) & "室"
Text1.Text = arrLine
End Sub

Answer 4

这个也并不一定要用正则表达式的
Private Sub Command1_Click()
   Dim Str As String
   Str = "4-3-2-401"
   Str = Replace(Str, "-", "期", , 1)
   Str = Replace(Str, "-", "区", , 1)
   Str = Replace(Str, "-", "幢", , 1)
   Str = Str + "室"
   Debug.Print Str
End Sub