Question

我之前从未使用过脚本或vbs文件，而且我最近才开始熟悉VB。我需要编写一个脚本来打开指定位置的.TS（本质上是.txt）文件，并将它们重命名为其中的ID号。到目前为止，这是我的代码，我确信它不仅仅是我能识别的错误：

Imports System.IO

Dim folder
folder = "C:\temp"

For each file in Directory.GetFiles(folder, "R00*.TS")

Dim filename 
filename = Path.GetFileName(file).ToString()

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile((Path.Combine(folder, filename)), _
 ForReading)

Do Until objFile.AtEndOfStream
objFile.ReadLine
If line.contains("RECORDER ID:") Then
    Dim RID 
    RID = line.Substring(13, 24)
    objFile.close
    objFSO.MoveFile filename, RID + ".txt"
    End If
Loop
Next

IDnumber总是在同一个地方，所以我硬编码了它的位置（一旦识别出正确的行）。我不确定语法差异（如果有的话）b / w VB和vbs。

我当前的错误 - 由Windows脚本主机提供 - 是“需要对象：系统”代码：800A01A8在第1行char 1.我猜我错过了或使用了错误的导入？

Answer 1

		<canvas id="myCanvas"> </canvas>
		<script type="text/javascript" src="js/jQuery.js"></script>
		<script type="text/javascript">

			var canvas = document.getElementById("myCanvas");
			var ctx = canvas.getContext("2d");
			ctx.canvas.width = window.innerWidth;
			ctx.canvas.height = window.innerHeight;

			$(document).ready(function(){ 	

			var ctx = canvas.getContext("2d");

			ctx.beginPath();
				ctx.fillStyle = "rgb(255,255,255)";
				ctx.fillRect(0,0,canvas.width, canvas.height);

				var url = "https://sheetsu.com/apis/f924526c"; 


			$.getJSON(url,function(json){
			
                                console.log(json);

				var type = json.type;
				$('type').append(type);
				console.log(type);

			});
		});

		</script>

是VB脚本解释器不知道或不需要的.NET构造。

您将需要使用CreateObject（“Scripting.FileSystemObject”）创建FileSystemObject ActiveX对象

您可能希望看到这篇文章： MSDN并且记住VB脚本和VB（.NET）完全没有任何共同之处，但是有些语法。

逐行读取.txt文件并根据文件中的特定ID号重命名文件使用vbs

1 个答案: