1
Я знаю, что это звучит назад, но мне нужно преобразовать это из C# в Classic ASP. Я не знаю VBScript, поэтому мне нужна помощь.Преобразуйте этот код C# в классический ASP/VBScript?
В моем коде C# он читает appkeys в файле конфигурации, анализирует их и использует циклы для выполнения процесса. Я не знаю, как делать словари и материалы ввода/вывода в VBScript. Кто-нибудь может помочь с этим?
Это ключи, которые я предполагаю, что я должен был бы хранить в качестве постоянных переменных в файле .asp:
<add key="Output.Size" value="550" />
<add key="Output.Ext" value=".jpg" />
<add key="Output.Folder" value="thumbs" />
<add key="Suffix.LG" value="750" />
<add key="Suffix.TN" value="250" />
<add key="Suffix.TNL" value="175" />
<add key="Suffix.TNR" value="75" />
<add key="Supported" value=".jpeg,.jpg,.gif,.bmp,.tiff,.png" />
Это C# код:
Generate generate = new Generate();
generate.Process(source, destination); //inputs will be relative URL paths
public class Generate
{
private const string OUTPUT_SIZE_KEY = "Output.Size";
private const string OUTPUT_EXT_KEY = "Output.Ext";
private const string SUFFIX_KEY = "Suffix.";
private const string SUPPORTED_KEY = "Supported";
private string[] supportedExt = null;
public Generate()
{
//GET ALL SUPPORTED FORMAT TYPES TO PREVENT PROCESSING ON UNSUPPORTED FILES
supportedExt = ConfigurationManager.AppSettings[SUPPORTED_KEY].ToLower().Split(',');
}
public void Process(string sourceDir, string destDir)
{
int thumbSize = Int32.Parse(ConfigurationManager.AppSettings[OUTPUT_SIZE_KEY]);
string thumbExt = ConfigurationManager.AppSettings[OUTPUT_EXT_KEY];
//COLLECT VALUES FOR RESIZING
Dictionary<string, int> resizeValues = new Dictionary<string, int>();
foreach (string item in ConfigurationManager.AppSettings.AllKeys)
{
if (item.StartsWith(SUFFIX_KEY))
{
resizeValues.Add(item.Substring(SUFFIX_KEY.Length), Int32.Parse(ConfigurationManager.AppSettings[item]));
}
}
//BEGIN GENERATING THUMBS
foreach (string item in Directory.GetFiles(sourceDir))
{
//VALIDATE IF FILE TYPE SUPPORTED
if (!supportedExt.Contains(Path.GetExtension(item.ToLower())))
continue;
string fileName = Path.GetFileNameWithoutExtension(item);
string outputFile = Path.Combine(destDir, fileName + thumbExt);
//RESIZE TO THUMB
Resize(item, outputFile, thumbSize); //DO NOT HAVE TO CONVERT "RESIZE"
//RESIZE TO DIFFERENT THUMBS
foreach (KeyValuePair<string, int> output in resizeValues)
{
string thumbSeq = Path.Combine(destDir, fileName + output.Key + thumbExt);
Resize(item, thumbSeq, output.Value); //DO NOT HAVE TO CONVERT "RESIZE"
}
}
}
UPDATE: Как было предложено ниже, я конвертировал в VB для упрощения перевода. Кажется, мне тоже нужно переосмыслить. Это где я, но я получаю сообщение об ошибке:
<html>
<head>
<title></title>
</head>
<body>
<%
'DECLARE VARIABLES
Dim outputSize
Dim outputExt
Dim outputSuffix()
Dim supported
Dim source
Dim destination
'INITIALIZE VALUES
outputSize = 550
outputExt = ".jpg"
outputSuffix(0) = "LG.750"
outputSuffix(1) = "TN.250"
outputSuffix(2) = "TNL.175"
outputSuffix(3) = "TNR.75"
supported = ".jpeg,.jpg,.gif,.bmp,.tiff,.png"
source = "catalog/upload"
destination = "catalog"
'CALL FUNCTION TO RESIZE THUMBNAILS
Dim generate
generate = New ThumbGenerator
generate.Process source, destination
'PROCESS TO RESIZE
class ThumbGenerator
Dim supportedExt
Public Sub Process(sourceDir, destDir)
Dim thumbSize
Dim thumbExt
thumbSize = outputSize
thumbExt = outputExt
supportedExt = supported.ToLower().Split(",")
'COLLECT VALUES FOR RESIZING
Dim resizeValues
resizeValues = Dictionary(String, Integer)()
For Each item As String In outputSuffix
Dim temp
temp = item.Split(".")
resizeValues.Add(temp(0), temp(1))
Next
'BEGIN GENERATING THUMBS
For Each item As String In Directory.GetFiles(sourceDir)
'VALIDATE IF FILE TYPE SUPPORTED
If Not supportedExt.Contains(Path.GetExtension(item.ToLower())) Then
Continue For
End If
Dim fileName
Dim outputFile
fileName = Path.GetFileNameWithoutExtension(item)
outputFile = Path.Combine(destDir, fileName + thumbExt)
'RESIZE TO THUMB
'Resize(item, outputFile, thumbSize)
'RESIZE TO DIFFERENT THUMBS
For Each output As KeyValuePair(Of String, Integer) In resizeValues
Dim thumbSeq As String = Path.Combine(destDir, fileName + output.Key + thumbExt)
'Resize(item, thumbSeq, output.Value)
Next
Next
End Sub
End Class
%>
</body>
</html>
Это ошибка я получаю:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/sandbox/aspjpeg/Default.asp, line 45
resizeValues = Dictionary(String, Integer)()
----------------------------------^
Спасибо, я преобразовал его, но он все еще кажется далеким от ASP. Я обновил свой пост. – TruMan1