求 真灵九变 到最新的，精校txt

《真灵九变》百度网盘txt 最新全集下载：

链接: https://pan.baidu.com/s/1l1UkzSD35xWoAHCvBb2zQg

提取码：a4kb

一个持续了数万年的阴谋，布置下重重的迷雾；一个普通修士的热血奋斗，彰显着激情澎湃；一个门派的崛起，预示着权谋与利益；一场人妖两族的对抗，展示着联盟与背叛；一场大劫的临近，埋藏着杀戮与秘辛；一段段秘辛的揭露，拨开了重重的迷雾。且看真灵派普通修士陆平，如何在这个大舞台中将自己的存在展示的淋漓尽致，成就一段属于他一个人的传奇，揭开一段段不为人所知的过去！ 《真灵九变》（校对版全本）作者睡秋。

Dim strZS As String      '整数部分

Dim strXS As String      '小数部分

Dim strZSDX As String    '整数部分大写

Dim strXSDX As String    '小数部分大写

Private Function Num2DaXie(num As String) As String

    Dim strDX As String

    strDX = "零壹贰叁肆伍陆柒捌玖"

    Num2DaXie = Mid(strDX, CInt(num) + 1, 1)

End Function

Private Function ShuWei(sw As Integer) As String

    Dim strSW As String

    strSW = " 拾佰仟万拾佰仟亿拾佰仟万拾佰仟"

    ShuWei = Mid(strSW, sw, 1)

End Function

Public Function DaXie(strYS As String) As String

    Dim i As Integer

    If InStr(strYS, ".") = 0 Then

        strXSDX = ""

        strZS = strYS

      Else

        strZS = Left(strYS, InStr(strYS, ".") - 1)

        strXS = Right(strYS, Len(strYS) - InStr(strYS, "."))

        For i = 1 To Len(strXS)

            strXSDX = Num2DaXie(Mid(strXS, Len(strXS) - i + 1, 1)) & strXSDX

        Next

        strXSDX = "点" & strXSDX

    End If

    For i = 1 To Len(strZS)

        strZSDX = Num2DaXie(Mid(strZS, Len(strZS) - i + 1, 1)) & ShuWei(i) & strZSDX

    Next

    strZSDX = Replace(strZSDX, "零拾", "零")

    strZSDX = Replace(strZSDX, "零佰", "零")

    strZSDX = Replace(strZSDX, "零仟", "零")

    Do While InStr(strZSDX, "零零") > 0

        strZSDX = Replace(strZSDX, "零零", "零")

    Loop

    strZSDX = Replace(strZSDX, "零亿", "亿")

    strZSDX = Replace(strZSDX, "零万", "万")

    strZSDX = Replace(strZSDX, "亿万", "亿")

    DaXie = Trim(strZSDX) & strXSDX

    strZSDX = ""

    strXSDX = ""

End Function

'上面代码是阿拉伯数字转大写，跟你题目吻合。但看你图片发现是金额转大写，那就要用下面的代码

Dim strXSDX As String    '小数部分大写

Dim strZS As String      '整数部分

Dim strXS As String      '小数部分

Dim strZSDX As String    '整数部分大写

Private Function Num2DaXie(num As String) As String

    Dim strDX As String

    strDX = "零壹贰叁肆伍陆柒捌玖"

    Num2DaXie = Mid(strDX, CInt(num) + 1, 1)

End Function

Private Function ShuWei(sw As Integer) As String

    Dim strSW As String

    strSW = "圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟"

    ShuWei = Mid(strSW, sw, 1)

End Function

Public Function DaXie(strYS As String) As String

    Dim i As Integer

    If InStr(strYS, ".") = 0 Then

        strXSDX = "整"

        strZS = strYS

      Else

        strZS = Left(strYS, InStr(strYS, ".") - 1)

        strXS = Right(strYS, Len(strYS) - InStr(strYS, "."))

        If Len(strXS) = 1 Then

            strXSDX = Num2DaXie(strXS) & "角"

          Else

            strXSDX = Num2DaXie(Left(strXS, 1)) & "角" & Num2DaXie(Mid(strXS, 2, 1)) & "分"

        End If

    End If

    For i = 1 To Len(strZS)

        strZSDX = Num2DaXie(Mid(strZS, Len(strZS) - i + 1, 1)) & ShuWei(i) & strZSDX

    Next

    strXSDX = Replace(strXSDX, "零角", "零")

    strZSDX = Replace(strZSDX, "零拾", "零")

    strZSDX = Replace(strZSDX, "零佰", "零")

    strZSDX = Replace(strZSDX, "零仟", "零")

    Do While InStr(strZSDX, "零零") > 0

        strZSDX = Replace(strZSDX, "零零", "零")

    Loop

    strZSDX = Replace(strZSDX, "零亿", "亿")

    strZSDX = Replace(strZSDX, "零万", "万")

    strZSDX = Replace(strZSDX, "零圆", "圆")

    strXSDX = Replace(strXSDX, "零分", "")

    strZSDX = Replace(strZSDX, "亿万", "亿")

    If strXSDX = "零" Then strXSDX = "整"

    DaXie = strZSDX & strXSDX

    strZSDX = ""

    strXSDX = ""

End Function

---