Internationalization VBScript国际化指南/最佳实践

愿你们大家平安

我一直致力于国际化，我想要VBScript的指南。有很多关于Java和JavaScript的资料，但是在对VBS进行了广泛的研究之后，我找不到任何东西，除了一些零碎的函数，如format、formatDate等，并且没有最佳实践/指南

---

我该怎么办

重要的事情之一是使用已经存在的东西，例如，您可以使用

GetLocaleInfo

API

类似于以下代码：

' Return a piece of locale information.
Private Function LocaleInfo(ByVal locale As Long, ByVal _
    lc_type As Long) As String
Dim length As Long
Dim buf As String * 1024

    length = GetLocaleInfo(locale, lc_type, buf, Len(buf))
    LocaleInfo = Left$(buf, length - 1)
End Function

Private Sub Form_Load()
Dim locale_id As Long

    '...
    locale_id = GetUserDefaultLCID()

    ' Load the values.
    ' Country.
    AddRow "Country"
    AddRow "Abbreviated Country Name", _
        LocaleInfo(locale_id, LOCALE_SABBREVCTRYNAME)
    AddRow "Native Name of Country", LocaleInfo(locale_id, _
        LOCALE_SNATIVECTRYNAME)
    '...
End Sub

' Add a row to the FlexGrid. If the second parameter
' is missing, color the row as a header.
Private Sub AddRow(ByVal item_name As String, Optional _
    ByVal item_value As Variant)
    MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = _
        item_name
    If IsMissing(item_value) Then
        MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
        MSFlexGrid1.Col = 0
        MSFlexGrid1.CellBackColor = _
            MSFlexGrid1.BackColorFixed
        MSFlexGrid1.Col = 1
        MSFlexGrid1.CellBackColor = _
            MSFlexGrid1.BackColorFixed
    Else
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = _
            item_value
    End If
End Sub

发现

---

更一般地说，我在VBS国际化方面没有太多经验，但您可以从中找到一些启示

好吧，API包含特定于语言环境的函数。让我们看看它还能做些什么。。ThanksWJK对你在VB帮助程序中提到的链接的评论，有一些很好的提示。谢谢你的研究。愿你平安！保重=）