标签: vbscript

我有一个文本文件,其中包含我需要创建的文件名列表,减去扩展名.我想运行一个快速批处理文件命令或VBS脚本,它将迭代列表,然后根据名称创建一个文件.

文本文件看起来像这样:

PRXI0000466
PRXI0000564
PRXI0000636
PRXI0000681
PRXI0001092

所以我想遍历每一行,然后做一个" echo . > %file%.txt"(假设%file%包含文本文件中的行).

有人能告诉我一个快速的方法吗？

我似乎无法找到这个问题的答案.

看起来我应该能够从C#中的一个数字变成一个字符,只需按照(char)MyInt的行去复制vb的Chr()函数的行为; 然而,这种情况并非如此:

在带有asp页面的VB脚本中,如果我的代码说明了这一点:

Response.Write(Chr(139))

它输出这个:

‹ (character code 8249)

反对这个:

(字符代码139)

我在编码时遗漏了某些东西,但我找不到它.Chr()使用什么编码？

任何人都可以推荐一个免费的vbscript编译器(或最便宜的)谢谢,

约旦第纳尔

我有一个脚本可以ping一系列计算机并告诉我是否可以联系到我.对于每台计算机,我希望它显示是否在命令提示符下到达,而不是作为弹出消息.我做了Wscript.Echo,但它为每台计算机弹出一个弹出窗口,所以要点击OK 100次真的很烦人.

如何在命令提示符下显示它？

我在传统的ASP Classic代码中使用ADO Recordset上的过滤器时遇到了问题,而我正在尝试了解我是否不支持我正在尝试做什么,或者我是否只是做错了.

我有一个Items记录集,它们的状态为1(活动)或0(非活动),以及可选的End_Date.在我的管理用户界面中,我有一个控件来显示所有项目或仅显示应该显示给最终用户的项目:Status = 1 AND ( End_Date is null OR End_Date > Date() )

为了实现这个逻辑,我试过:

rs.Filter = "Status = 1 AND ( End_Date = null OR End_Date > #" & Date() & "# )"

但我明白了

ADODB.Recordset (0x800A0BB9)
Unknown runtime error

经过多次愚弄,似乎ADO不喜欢End_Date条件下的分组parens与AND条件相结合.如果我把parens拿出来,这有效:

rs.Filter = "Status = 1 AND End_Date = null OR End_Date > #" & Date() & "#"

但这只是一个意外 - 它看起来像是按顺序评估过滤条件,所以我得到了我想要的结果.如果我将AND更改为OR,则parens工作:

rs.Filter = "Status = 1 OR ( End_Date = null OR End_Date > #" & Date() …

在VBS脚本中,我需要使用日期初始化变量.

在我的国家/地区,我们通常会使用以下格式指定日期:日月

这是我在VBS脚本中尝试做的事情:

Date = #07-06-1973#
MsgBox FormatDateTime(Date, vbLongDate)

但是我得到的日期是7月6日,我期待6月7日!

现在,因为似乎第一个数字代表月份,这是我尝试做的:

Date = #13-06-1973#
MsgBox FormatDateTime(Date, vbLongDate)

但现在,第一个数字代表了一天!(我得到以下日期:6月13日)

我没有找到强制日期格式的方法,因此没有更多的歧义.

我的名字是埃德,我需要你的帮助.在我的经典ASP应用程序中页面加载时发生此错误:

Microsoft VBScript runtime error  '800a0009' 
Subscript out of range: 'cont' 
/admin/cadastros_apz_material.asp, line 173 

相关代码是:

do while not rs.eof
  for i = 1 to tpp
     if i = 1 then matriz(cont) = Rs("id_material_apv_produto") else matriz(cont) = matriz(cont) & "_" & rs("id_material_apv_produto")
     rs.movenext: if rs.eof then exit do
   next: cont = cont + 1
loop: set rs = nothing: if cint(pag) = 1 and ubound(matriz) >= 1 then id = matriz(1)

谢谢.

我是VBS脚本的新手.谢谢你们的评论!我现在修复了错误800A0401,感谢您的帮助.但是现在我在第13行得到错误800A0414,字符1"需要对象",它指的是行:设置MimeTypesToAddArray = Array(".manifest","application/manifest",".xaml",_

现在我明白了行计数的工作原理; 它确实计算评论行.我仍在审查你的所有建议,但如果你有任何关于如何解决这个错误的提示,那将是超级的!

(我不同意需要将"Dim"放在与类型值不同的行上,因为我看到了很多这样做的例子.是否有任何VBS专家？0

' This script adds the necessary Windows Presentation Foundation MIME types 
' to an IIS Server.
' To use this script, just double-click or execute it from a command line.
' Running this script multiple times results in multiple entries in the IIS MimeMap.
' Set the MIME types to be added
Dim MimeMapObj
Dim MimeMapArray
Dim WshShell
Dim oExec
Const ADS_PROPERTY_UPDATE = 2

Dim MimeTypesToAddArray
Set MimeTypesToAddArray = Array(".manifest", "application/manifest", ".xaml", _
    "application/xaml+xml", …

我已经使用Visual Basic和eMbedded Visual Basic做了一些小事,但现在我想继续编写脚本,然后我想知道Linux,BeOS和其他操作系统浏览器是否支持VBScript页面.

我使用xml为我的网站获取标签.

从数据库文件生成的xml如下所示

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly' rs:updatable='true'>
    <s:AttributeType name='LABEL_KEY' rs:number='1' rs:nullable='true'>
        <s:datatype dt:type='string' rs:dbtype='str' dt:maxLength='1000'/>
    </s:AttributeType>
    <s:AttributeType name='Label_LNG' rs:number='2' rs:writeunknown='true' rs:basecatalog='1500_GoldenFlour' rs:basetable='t_Label_SITE_PER_LNG'
         rs:basecolumn='Label_LNG'>
        <s:datatype dt:type='string' dt:maxLength='4000' rs:maybenull='false'/>
    </s:AttributeType>
    <s:AttributeType name='Label_ID' rs:number='3' rs:basecatalog='1500_GoldenFlour' rs:basetable='t_Label_SITE'
         rs:basecolumn='Label_ID' rs:keycolumn='true' rs:hidden='true' rs:autoincrement='true'>
        <s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>
    </s:AttributeType>
    <s:AttributeType name='c3' rs:name='Label_ID' rs:number='4' rs:writeunknown='true' rs:basecatalog='1500_GoldenFlour'
         rs:basetable='t_Label_SITE_PER_LNG' rs:basecolumn='Label_ID' rs:keycolumn='true' rs:hidden='true'>
        <s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>
    </s:AttributeType>
    <s:AttributeType name='Language_ID' rs:number='5' rs:writeunknown='true' rs:basecatalog='1500_GoldenFlour'
         rs:basetable='t_Label_SITE_PER_LNG' rs:basecolumn='Language_ID' rs:keycolumn='true' rs:hidden='true'>
        <s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' …