Emmanuele Sassi
32 lines
1.0 KiB
VB.net
32 lines
1.0 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Module LuaMsgManager
|
|
|
|
Public Function MessageFromLuaMsg(LuaMsg As String) As String
|
|
' verifico se inizia con $$
|
|
If Not String.IsNullOrWhiteSpace(LuaMsg) AndAlso LuaMsg.Length >= 2 AndAlso LuaMsg.Substring(0, 2) = "$$" Then
|
|
Dim sMsgArgs() As String = LuaMsg.Substring(2).Split(",")
|
|
Dim nMsg As Integer = -1
|
|
If sMsgArgs.Count > 1 AndAlso Integer.TryParse(sMsgArgs(0), nMsg) AndAlso nMsg > 0 Then
|
|
If sMsgArgs.Count > 1 Then
|
|
Dim sArgs() As String = sMsgArgs.Skip(1).ToArray()
|
|
Dim sMsg As String = String.Format(EgtMsg(65000 + nMsg), sArgs)
|
|
If Not String.IsNullOrWhiteSpace(sMsg) Then
|
|
Return sMsg
|
|
Else
|
|
Return EgtMsg(65000 + nMsg)
|
|
End If
|
|
Else
|
|
Return EgtMsg(65000 + nMsg)
|
|
End If
|
|
Else
|
|
Return LuaMsg
|
|
End If
|
|
Else
|
|
Return LuaMsg
|
|
End If
|
|
Return ""
|
|
End Function
|
|
|
|
End Module
|