VBScript 국제화 지침/모범 사례

Question

평화 모든 사람 만나자!

저는 국제화 작업을하고 있으며 VBScript에 대한 지침을 원합니다. Java와 JavaScript에는 많은 자료가 있지만 VBS에 대한 광범위한 연구를 거친 후 format, formatDate 등의 기능과 모범 사례/지침과 같은 일부 기능을 제외하고는 아무것도 찾을 수 없었습니다.

어떻게해야합니까?

Answer 1

중요한 것은 이미 존재하는 것을 사용하는 것입니다. 예를 들어, 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 국제화에 많은 경험이없는하지만 당신은 영감 here