求用有限状态自动机(FSA)来解决问题的例子！

[zengjing2she327]

现在在学编译原理，对自动机这方面和感兴趣，但是只知道它状态转换的思想，想找一些用自动机思想解决问题的例子，但在网上找不到。所以就求教各位大虾了！如果有code就更好了！

[speedmancs]

词法解析，比如解析加减乘法的表达式，解析xml配置文件等。

[xsj_guagua]

先从简单的词法分析上来吧，比如用自动机的思想解析，int,float,函数名等模式。

然后推荐研究下kmp算法，底层实现用的也是自动机的思想。

[赵4老师]

Function Par(sss As String, pn As Integer) As String
Dim des As String
Dim src As String
Dim s As Integer
Dim ln As Integer
Dim nn As Integer
Dim c As String
Dim iii As Integer
On Error Resume Next
    des = ""
    s = 0
    src = sss
    src = src + " "
    ln = Len(src)
    nn = -1
    For iii = 1 To ln
        c = Mid(src, iii, 1)
        Select Case s
        Case 0:
            If c <> " " Then
                If c = Chr(34) Then
                    s = 2
                    des = ""
                Else
                    des = des + c
                End If
            Else
                nn = nn + 1
                If nn = pn Then
                    Par = des
                    Exit Function
                End If
                s = 1
            End If
        Case 1:
            If c <> " " Then
                If c = Chr(34) Then
                    s = 2
                    des = ""
                Else
                    des = c
                    s = 0
                End If
            End If
        Case 2:
            If c <> Chr(34) Then
                des = des + c
            Else
                nn = nn + 1
                If nn = pn Then
                    Par = des
                    Exit Function
                End If
                s = 1
            End If
        End Select
    Next
    Par = ""
End Function