Question

我知道这听起来很倒退，但我必须将其从C＃转换为Classic ASP。我不知道任何VBScript，所以我需要帮助。

在我的C＃代码中，它正在读取配置文件中的appkeys，解析它们，并使用循环来执行进程。我不知道如何在VBScript中做字典和I / O的东西。有人可以帮忙吗？

这些是我想我必须在.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"
                }
            }
        }

更新如下所示，我转换为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)()
----------------------------------^

Answer 1

你想要重新思考你正在做的很多事情。 .Net不会逐行转换为vbscript，甚至不会按类/模块转换为类/模块。你将不得不看看ASP.Net实际上在做什么，并弄清楚如何在vbscript中做到这一点。

对于vbscript的一个提示是，不是乱用vbscript文件来处理配置文件，我发现通过在单独的文件中定义这些变量来处理配置数据要容易得多，然后将其包含在其他地方。然后，就像使用其他变量一样，您可以使用该数据。

Answer 2

你不能对变量进行Dim，然后在vbscript的同一行设置它的值。

Dim outputSize As Integer outputSize = 550

不要在整数周围使用“”。

Answer 3

（我不会为你转换它，但是......）

存在几个C＃＆lt; - ＆gt; VB.NET转换器，例如http://converter.telerik.com/

将此转换为VB.NET后，将其转换为经典ASP / VBScript可能会更容易一些。

Answer 4

你可以调暗变量并通过

指定一个值

dim myVar : myVar = 4711

或

' this will create a "dictionary"

dim resizeValues : set resizeValues = server.createobject("scripting.dictionary")

Answer 5

它是否需要生活在过去的时代？或者只是从过去的时代开始？如果后者是答案，您是否考虑将代码移动到自己的程序集中并使程序集COM可见，然后从过去的时代访问它。

Answer 6

使用 Const 关键字来定义常量变量。例如：

Dim outputSize, outputExt
outputSize = 550
outputExt = ".jpg"

可以

Const outputSize = 550, outputExt = ".jpg"

使用 FSO 对象来处理文件和文件夹。例如：

    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(sourceDir)
    Set files = folder.Files

将此C＃代码转换为Classic ASP / VBScript？

6 个答案: