root/lang/vbscript/Formatter/Formatter.vbs @ 14556

Option Explicit

'/* 
' * Formatter.vbs
' * $Id$
' *
' * Copyright (C) 2005 Mayuki Sawatari <mayuki@misuzilla.org>
' *      All rights reserved.
' *
' * Redistribution and use in source and binary forms, with or without
' * modification, are permitted provided that the following conditions
' * are met:
' * 1. Redistributions of source code must retain the above copyright
' *    notice, this list of conditions and the following disclaimer.
' * 2. Redistributions in binary form must reproduce the above copyright
' *    notice, this list of conditions and the following disclaimer in the
' *    documentation and/or other materials provided with the distribution.
' *
' * THIS SOFTWARE IS PROVIDED BY THE MISUZILLA.ORG ``AS IS'' AND
' * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
' * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
' * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
' * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
' * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
' * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
' * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
' * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
' * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
' * SUCH DAMAGE.
' */

'// �N���X������^�C�v�B
Function StringFormat(sFormat, oParam)
Dim oFormatter: Set oFormatter = New StringFormatter
Dim oFormatHandler: Set oFormatHandler = New ParamFormatHandler
        StringFormat = oFormatter.Format(sFormat, oParam, oFormatHandler)
End Function

Function StringFormatEval(sFormat)
Dim oFormatter: Set oFormatter = New StringFormatter
Dim oFormatHandler: Set oFormatHandler = New EvalFormatHandler
        StringFormatEval = oFormatter.Format(sFormat, Empty, oFormatHandler)
End Function

' =============================================================================

Class StringFormatter
        Private oRegexFormatCapture
        Private oRegexEscape

        '// Ctor
        Private Sub Class_Initialize()
                Set oRegexFormatCapture = New RegExp
                oRegexFormatCapture.Global = True
                oRegexFormatCapture.Pattern = "(?=^|[^\\]|.{0})\{(.*?[^\\]|)\}"

                Set oRegexEscape = New RegExp
                oRegexEscape.Global = True
                oRegexEscape.Pattern = "\\([{}\\])"
        End Sub
        
        '//
        '// Format - ��������`����
        '//
        '// sFormat: �t�H�[�}�b�g������'// oParams: �t�H�[�}�b�g�n���h�����p�����[�^��v�Ƃ������ȏꍇ�̓p�����[�^�z��w�������O��mpty
        '// oFormatHandler: �t�H�[�}�b�g�n���h��
        Public Function Format(sFormat, oParam, oFormatHandler)
                Dim oMatches
                Dim oMatch
                Dim sNewString
                Dim lStartPos
                Dim sExpressionResult
                
                Set oMatches = oRegexFormatCapture.Execute(sFormat)
                
                'Call WScript.StdOut.WriteLine("")
                'Call WScript.StdOut.WriteLine("Format: " & sFormat)
                'Call WScript.StdOut.WriteLine(String(Len("Format: " & sFormat), "="))

                lStartPos = 1
                
                For Each oMatch In oMatches
                        
                        sExpressionResult =  oRegexEscape.Replace( _
                                oFormatHandler.Expression(oMatch.SubMatches(0), oParam), "$1")

                        If (oMatch.FirstIndex - lStartPos + 1 > 0) Then
                                sNewString = sNewString & oRegexEscape.Replace( _
                                        Mid(sFormat, lStartPos, oMatch.FirstIndex - lStartPos + 1), "$1") & sExpressionResult
                                'Call WScript.StdOut.WriteLine("Append String: " & Mid(sFormat, lStartPos, oMatch.FirstIndex - lStartPos + 1))
                        Else
                                sNewString = sNewString & sExpressionResult
                        End If

                        'Call WScript.StdOut.WriteLine("New String: " & sNewString)
                        'Call WScript.StdOut.WriteLine("String start pos: " & lStartPos)
                        'Call WScript.StdOut.WriteLine("Match pos: " & oMatch.FirstIndex)
                        'Call WScript.StdOut.WriteLine("Next start pos: " & oMatch.FirstIndex + oMatch.Length + 1)
                        'Call WScript.StdOut.WriteLine("Value: " & oMatch.Value)
                        'Call WScript.StdOut.WriteLine("SubMatches: " & oMatch.SubMatches(0))
                        'Call WScript.StdOut.WriteLine("Exec Expression: " & sExpressionResult)
                        'Call WScript.StdOut.WriteLine("")
                        
                        lStartPos = oMatch.FirstIndex + oMatch.Length + 1
                Next
                
                '// �c��                If (lStartPos < Len(sFormat)) Then
                        'Call WScript.StdOut.WriteLine("String start pos: " & lStartPos)
                        'Call WScript.StdOut.WriteLine("String Len: " & Len(sFormat))
                        'Call WScript.StdOut.WriteLine("Append String: " & Mid(sFormat, lStartPos, Len(sFormat) - lStartPos + 1))
                        sNewString = sNewString & oRegexEscape.Replace( _
                                Mid(sFormat, lStartPos, Len(sFormat) - lStartPos + 1), "$1")
                End If
                
                Format = sNewString
        End Function
End Class


'/*
' * �t�H�[�}�b�g��ɂ傲�ɂ傷�����h��
' *
' * Public Function Expression(sFormatParam, oParam) 'As String
' * �߂��Œu����������
' */

'// EvalFormatHandler - Eval�����]���ɂ���
'//     �p�����[�^�͗v�����B
'//     ex. '{String(5, "=")}' => '======'
Class EvalFormatHandler
        Public Function Expression(strFormatParam, oParam)
                On Error Resume Next
                Expression = vbNullString
                Expression = Eval(strFormatParam)
        End Function
End Class

'// DictionaryFormatHandler - �p�����[�^�ɓn���ꂽ Dictionary �����[�Œl�������
'//     ex. oDic.Add("key", "value")
'//                     '{key}' => 'value'
Class DictionaryFormatHandler
        Public Function Expression(strFormatParam, oParam)
                On Error Resume Next
                Expression = vbNullString
                ' �^�`�F�b�N�����ق�������?
                Expression = oParam.Item(strFormatParam)
        End Function
End Class

'// UrlQueryFormatHandler - �p�����[�^�ɓn���ꂽ Dictionary �����[�Œl������A
'//             &query=value �̌`�ɂ����A���l�����݂��Ȃ�������̂܂܂ɂ���
'//             '{query:key}' => '&query=value'
'//             '{query:not-exists-key}' => ''
Class UrlQueryFormatHandler
        Public Function Expression(strFormatParam, oParam)
                Dim sValue
                Dim sTemp: sTemp = Split(strFormatParam, ":", 2)
                
                On Error Resume Next
                Expression = vbNullString
                If UBound(sTemp) = 1 And oParam.Exists(sTemp(1)) Then
                        sValue = oParam.Item(sTemp(1))
                        If sValue <> "" Then
                                Expression = "&" & sTemp(0) & "=" & oParam.Item(sTemp(1))
                        End If
                End If
        End Function
End Class

'// ParamFormatHandler - �p�����[�^��������`����
'// {n} ������{n:format}
'//     format:
'//             x: 16�i��(������)�B
'//     ex:
'//             oParam(0) = "hoge" :  '{0}' => 'hoge'
'//             oParam(1) = 10     :  '{1:x}' => 'a'
Class ParamFormatHandler
        Public Function Expression(sFormatParam, oParam)
                'On Error Resume Next
                Expression = vbNullString

                Dim sFormat: sFormat = ""
                Dim sIndex: sIndex = sFormatParam
                Dim sTemp: sTemp = Split(sFormatParam, ":", 2)
                If UBound(sTemp) = 1 Then
                        sIndex = sTemp(0)
                        sFormat = sTemp(1)
                End If
                
                If (IsNumeric(sIndex)) Then
                        Dim lIndex: lIndex = CLng(sIndex)
                        If UBound(oParam) >= lIndex Then
                                If sFormat <> "" Then
                                        Select Case sFormat
                                        Case "x"
                                                Expression = LCase(Hex(oParam(lIndex)))
                                        Case Else
                                        End Select
                                Else
                                        Expression = oParam(lIndex)
                                End If
                        End If
                End If
                
        End Function
End Class