d1mach

Option Explicit

Function GetOutputPath(inputPath, extension)
   Dim file
   Dim basename
   Dim foldername
   
   basename = FSO.GetBaseName( inputPath )
   set file = FSO.GetFile( inputPath )
   foldername = file.ParentFolder

tukachev

translit <- function(text, charupper=FALSE){
lat.up <- c("A","B","V","G","D","E","YO","ZH","Z","I","J","K","L","M","N","O",
"P","R","S","T","U","F","KH","C","CH","SH","SHH","''","Y","'","E'","YU","YA")
rus.up <- c("А","Б","В","Г","Д","Е","Ё","Ж","З","И","Й","К","Л","М","Н","О",
"П","Р","С","Т","У","Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я")
lat.low <- c("a","b","v","g","d","e","yo","zh","z","i","j","k","l","m","n","o",
"p","r","s","t","u","f","kh","c","ch","sh","shh","''","y","'","e'","yu","ya")
rus.low <- c("а","б","в","г","д","е","ё","ж","з","и","й","к","л","м","н","о",
"п","р","с","т","у","ф","х","ц","ч","ш","щ","ъ","ы","ь","э","ю","я")
n <- nchar(text)