标签: vbscript

我需要一个函数来使用经典的 asp 来检查字符串是否全部（或大部分）大写。（我需要防止用户使用全部大写输入标题。）

例如，如果一个由 30 个字母组成的字符串包含 20 个或更多大写字母，我需要将其标记为“全部大写”。所以《基督山伯爵》可以，但《基督山伯爵》不行。

我正在考虑从匹配的字母开始[^A-Z]，但我该怎么做呢？

这需要使用经典 ASP 而不是 VB。

我是vb脚本的新手,请帮助我.

我通过随机附加最后两位数来生成随机年份,如下所示,但我想在用户提供的开始日期和结束日期之间生成随机日期DDMMYYYY格式.

Randomize
tmp = Int((92 - 70 + 1) * Rnd + 70)
tmp1= "01/05/19" & tmp

我有一个简单VBScript的从数据库获取数据并迭代它们并生成一个表.在此迭代期间,我想捕获一些数据(特定列的值)并将它们保存在变量中供以后使用.但是每当我的代码到达那个if语句时,它就不再循环了.

  Dim lats
  Dim longs
  Set lats = CreateObject("System.Collections.ArrayList")
  Set longs = CreateObject("System.Collections.ArrayList")
  %>
  <table>
    <tr><th>Office</th><th>Address</th><th>Comune</th><th>Province</th><th>Lat</th><th>Long</th><th>2G</th><th>3G</th><th>4G</th></tr>

    <%do until rs.EOF
        response.write("<tr>")
        for each x in rs.Fields
          response.write("<td>" & response.write(x.value) &"</td>")
          'IF the below statement equals true, the loop doesn't perform anymore
          If x.name = "SITE_LAT_N" Then
            lats.Add x.value
          ElseIf x.name = "SITE_LON_E" Then
            longs(indx) = x.value
          End If
          next
        rs.MoveNext
        response.write("</tr>")
      loop
      rs.close
      conn.close
      %>
    </table>

我想创建一个VBScript（不在HTML文件中），该VBScript为用户提供可供选择的文档列表，然后使用所选内容为他们选择的每个文档运行另一个脚本。自从我使用VBScript已有很长时间了...如何创建此列表框？

克里斯

我知道如何在 Windows 上制作 VBS msgBox

message = ("HELLO",0,"Title")

但我想用 Powershell 在 Mac 上做到这一点

谢谢你的回答:D

以下在Option Explicit设置或未设置时抛出错误。

创建一个名为dim.vbs.

Dim a as String

然后在命令提示符下运行。

cscript dim.vbs

Microsoft VBScript 编译错误：预期的语句结束

有没有办法强制Option Explicit设置或不设置变量类型？

嗨,我是VB的新手,只是如果有人可以在我目前的情况下帮助我

我有一个名为shar.txt的文本文件,
它有6行.

我是一名新生,
我正在学习VB
请帮助我的朋友朋友
们一生都很重要
谢谢你的支持
永远感激你

我想要一个脚本,它读取这个文本文件,并查找字符串,如"朋友","支持",并在同一位置打印包含这些字符串的行在另一个文本文件中说"sha.txt"

我试过这一点但是我中途迷失了方向.

请有人帮助我.
谢谢

Sub ReadToTextFile()
Dim strPattern1 As String    
Dim strPattern2 As String    
H1 As String    
H2 As String    
strPattern1 = "friends"    
strPattern2 = "support"    


Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\sonu\Desktop\auto\shar.txt", 1, True)    
Do Until
 objFileToRead.AtEndOfStream        
    strLine = objFileToRead.ReadLine        
    ElseIf 
InStr(strLine, strPattern1) > 0    
 Then        
        Wscript.Echo strLine    
                H1 = strLine    
                ElseIf 
InStr(strLine, strPattern2) > 0        
 Then        
                Wscript.Echo strLine    
                H2 = strLine    
           End If    

    End If    
Loop    

Wscript.Echo H2    

Set objFileToRead = Nothing …

我需要使用VBScript删除浏览器cookie和缓存的帮助。

提前致谢！

如何输出日期减3小时？例:

BookDate = 8/4/2014 9:00:00 PM
DesirebleDate = 8/4/2014 6:00:00 PM

尝试DesirebleDate = DateDiff("h", BookDate , -3)但输出了小时数.谢谢.

我用C,Pascal,GWBasic,TCL,Perl,Lisp编程,但Visual Basic对我来说太先进了.

FOR j = 1 TO 31
  output_to_webpage "<p>Counter is " + j + "</p>"

  myDay = "" + j
  IF j < 10 THEN myDay = "0" + j

  MyStr = MyStr + ",j"
NEXT

循环永远不会发生.虽然如果我注释掉对循环变量的任何引用j,它似乎循环.

我怎样才能真正实现Visual Basic循环.或错误.没有默默地假装那里根本没有FOR循环？

更新:如果循环的第一个语句只是一个简单的调试语句,我希望它总是至少执行一次,即使循环的其余部分被中止.但是,正如下面所指出的,对循环变量使用算术会导致整个循环甚至不执行一次.甚至不是循环内的初始调试语句.我觉得很奇怪.