December 29, 2010

IIS проблемы с буквой я

Ниже приведён синтаксис vbs скрипта, который выполняет поиск файлов в указанной папке, находит и меняет регистр буквы "я".

RootFTPFolder = "С:\FTP" 'Корневая директория FTP сервера
Call RunSubFolders (RootFTPFolder)

Sub RunSubFolders (FolderInto) 'Процедура переименования

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(FolderInto)

For Each iFile in Folder.Files 'Цикл проверки и переименования всех файлов в текущей директории
NameFile = Mid(iFile, InStrRev(iFile,"\")+1)
If Detect_ya(NameFile) Then
On Error Resume Next
FSO.MoveFile iFile, Mid(iFile,1,InStrRev(iFile,"\")) + convert_ya(NameFile)
End If
Next

On Error Resume Next
For Each iSubFolder in Folder.SubFolders 'Цикл проверки и переименования всех папок в текущей директории

NameFolder = Mid(iSubFolder, InStrRev(iSubFolder,"\")+1)
If Detect_ya(NameFolder) Then
On Error Resume Next
FSO.MoveFolder iSUbFolder, Mid(iSubFolder,1,InStrRev(iSubFolder,"\")) + convert_ya(NameFolder)
End If
RunSubFolders (iSUbFolder)
Next
End Sub

function convert_ya(str_in) 'Функция повышения регистра буквы "я"
str_out = Replace(str_in,"я","Я")
convert_ya = str_out
end function

function Detect_ya(Str_in) 'Функция обнаружения буквы "я" в строке
If (InStr(Str_in,"я")<>0) then
Detect_ya = True
else
Detect_ya = False
End If
End Function

No comments:

Post a Comment