ZZZAlexZZZ
|
 Posted: Fri Sep 01, 2017 17:26 Post subject: |
 |
|
Добрый день.
Что необходимо исправить в сприпте ниже - на незнакомом формате выдает ошибку "несоответствие типа FormatCurrency"?
 Скрипт | Code: |
' Script for WinScriptAdv content plugin
Dim FSO, Name
Dim ArrPN, objRegEx, Matches
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
Name = FSO.GetBaseName(filename)
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern="(\d+)(\D)(\d\d)"
ArrPN = split(Name, " ", -1, vbTextCompare)
For i = 0 to 13 Step 1
If i > UBound (ArrPN) Then
ReDim Preserve ArrPN(i)
ArrPN(i) = ""
Else
Set Matches = objRegExp.Execute(ArrPN(i))
If IsDate(ArrPN(i)) Then
ArrPN(i) = FormatDateTime(ArrPN(i), 1)
elseIf IsNumeric(ArrPN(i)) Then
ArrPN(i) = FormatNumber(ArrPN(i), 0)
elseIf Matches.Count > 0 Then
ArrPN(i) = FormatCurrency(objRegExp.Replace(ArrPN(i), "$1") & ","& oNum = objRegExp.Replace(ArrPN(i), "$3"), -1, -1)
End If
ArrPN(i) = ArrPN(i)
End If
Next
content= ArrPN(0)
content1= ArrPN(1)
content2= ArrPN(2)
content3= ArrPN(3)
content4= ArrPN(4)
content5= ArrPN(5)
content6= ArrPN(6)
content7= ArrPN(7)
content8= ArrPN(8)
content9= ArrPN(9)
content10= ArrPN(10)
content11= ArrPN(11)
content12= ArrPN(12)
content13= ArrPN(13)
Set objRegExp = Nothing
Set FSO = Nothing
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
