炸鸡

用perl去做应该可以。

qian1110

原帖由 wildhorse 于 2008-6-26 23:27 发表
想占坑，发现有两条不满足。

老人不要来捣乱

人家要30以下的

beginner-bj

没说不要30以上的啊，只是说最好30以下。
30出头也可以的。

orian

我都出了好大一头了

aku1

下午到公司加班配置双网卡suse防火墙,搞半天搞不出来,记得两年前自己用redhat做过,linux忘得差不多了,不过你给我的作业晚上加班做完了
由于女朋友在催我,就麻烦你在C:\FSO\下建个file.txt和file1.txt不然运行会出错
你的两个要求,分别写进file.txt和file1.txt里了,Scripting 贴上来给你看
Const ForReading = 1
Const ForWriting = 2

Dim oFSO,oF,i,strline,strnewText,strnewText1
'在C盘下建FSOfile,并把数组文件读进去,如果你想加东东,直接加数组里了
array1=array("111 bbb","222 aab","333 aaa","444 bbb","555 ccc","666 b")
ScriptPath="C:\FSO"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oF = oFSO.CreateTextFile(ScriptPath & "file.txt")
for i=0 to 5
  
oF.Writeline(array1(i)& vbCrLf)
next

oF.close

' 包含 "b"

Set objFile = oFSO.OpenTextFile(ScriptPath & "file.txt", ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
if instr(1,strline,"b",1)>0 then

    strNewText = strnewtext&strLine & vbCrLF
end if
   
Loop

oF.close

Set objFile = oFSO.OpenTextFile("C:\FSo\file.txt", ForWriting)

objFile.WriteLine strNewText

objFile.Close

' 包含 "b"且两两显示不过最后的列子逻辑要稍微改下,但要走了,女朋友逼的紧啊
Set objFile = oFSO.OpenTextFile("C:\FSo\file.txt", ForReading)

Do Until objFile.AtEndOfStream
    strLine=objFile.ReadLine
    strline=replace(strline," ",",")
    strNewText1 = strnewtext1&strLine & ","
   
loop
    MyArray=split(strNewText1,",",-1,1)

oF.close

Set objFile = oFSO.OpenTextFile("C:\FSo\file1.txt", ForWriting)

For i = 1 to Ubound(myArray)/2
   
  objFile.WriteLine myArray(2*i-1)
Next
objFile.Close

aku1

如果要显示出屏幕,稍微改改就可以了

aku1

原帖由 beginner-bj 于 2008-6-25 18:29 发表
小猪想来的话，投下简历吧？

目前缺个熟练写WINDOWS脚本的人。比如：统计域里所有机器的网卡数量及IP、统计域里哪些机器的服务用了非系统用户、批量创建用户、批量更改若干域用户的属性……

这些我都可以轻松写出来,包括统计当前用户,当前进程,安装软件,安装网络打印机,映射网络磁盘,一般注册表修改等以及跟AD结合的ADSI编程,我以前完全出入兴趣自学的,不过我有一段时间没写脚本,基本看下就记得了

[ 本帖最后由 aku1 于 2008-6-28 21:16 编辑 ]

beginner-bj

原帖由 aku1 于 2008-6-28 21:04 发表
下午到公司加班配置双网卡suse防火墙,搞半天搞不出来,记得两年前自己用redhat做过,linux忘得差不多了,不过你给我的作业晚上加班做完了
由于女朋友在催我,就麻烦你在C:\FSO\下建个file.txt和file1.txt不然运 ...

语法有两个错。
结果也不符合要求。我的要求是对我给的file.txt文件内容进行过滤、排列，你定义了一个与file.txt毫无关系的数组，而且生成的两个文件也不是我要的结果。

beginner-bj

在网上搜了搜，东拼西凑了两个脚本。我花了两个多小时，我希望能找到10几分钟就能搞定类似问题的WINDOWS熟手。

前面可能需求没说清，现重新描述。要的就是下面的效果：

C:\>cscript "C:\Documents and Settings\Administrator\桌面\grep-xargs.vbs" C:\FSO
\file.txt b 3
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

abb     aab     bbb
b

C:\>cscript "C:\Documents and Settings\Administrator\桌面\grep-xargs.vbs" C:\FSO
\file.txt b 2
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

abb     aab
bbb     b


C:\>cscript "C:\Documents and Settings\Administrator\桌面\grep-xargs.vbs" C:\FSO
\file.txt a 2
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

abb     aab
aaa

C:\>cscript "C:\Documents and Settings\Administrator\桌面\grep-p.vbs" C:\FSO\fil
e.txt b
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。


111
abb

222
aab

444
bbb

666
b



C:\>cscript "C:\Documents and Settings\Administrator\桌面\grep-p.vbs" C:\FSO\fil
e.txt a
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。


111
abb

222
aab

333
aaa



C:\>cscript "C:\Documents and Settings\Administrator\桌面\grep-p.vbs" C:\FSO\fil
e.txt c
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

555
ccc



C:\>type C:\FSO\file.txt
111
abb

222
aab

333
aaa

444
bbb

555
ccc

666
b

C:\>

aku1

原帖由 beginner-bj 于 2008-6-29 00:39 发表


语法有两个错。
结果也不符合要求。我的要求是对我给的file.txt文件内容进行过滤、排列，你定义了一个与file.txt毫无关系的数组，而且生成的两个文件也不是我要的结果。

我定义数组,其实是把数组内容读到FSOfile,这个其实就是你想要的file,然后fso/file.txt和file1.txt都是处理的结果,file.txt是包含b的,file1.txt是两两显示,不过当时我没看请要求,脚本后面要改下

Set objFile = oFSO.OpenTextFile("C:\FSo\file1.txt", ForWriting)

For i = 1 to Ubound(myArray)/4


objFile.WriteLine myArray(4*i-3) &" " &myArray(4*i-1)
  这样便是两两显示了
但你要完全做成象linux一样的命令带参数处理,还真有点难,不是难在程序,而是参数传递,我估计10分钟写不出来了,如果不用参数传递,那很快写出来

aku1

其实你这个字符的处理并不难,至于几个显示,实际上把想要的字符放数组里,然后按逻辑关系抓就是了,不管两两显示,还是三四显示,都没问题了,你的结果其实加个CASE语句就可以了,可以参考我的一个脚本
企业级脚本，本人原创（参考脚本中心，利用请留名谢谢）

Dim strComputer
Dim colPorts
Dim objWMIService
Dim WshNetwork
Dim objNewPort
Dim objPort
Dim objDictionary
Dim ip_address
Dim objDriver
Dim objPrinter
Dim i

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objDictionary = CreateObject("Scripting.Dictionary")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPorts =  objWMIService.ExecQuery _
    ("Select * from Win32_TCPIPPrinterPort")
   
For Each objPort in colPorts

    objDictionary.Add objPort.HostAddress,objPort.HostAddress

     Next
     
for i=222 to 233
     
     ip_address="10.16.1." & i

if objDictionary.Exists(ip_address) Then


      Wscript.Echo "对不起此端口已添加: " & ip_address
      
      Else
Select Case i
Case 222

Case 223

..............   


Case 233

'Install printer port

Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
    ("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name ="IP_" & ip_address
objNewPort.Protocol = 1
objNewPort.HostAddress = ip_address
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_

'install printer driver

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objDriver = objWMIService.Get("Win32_PrinterDriver")
objDriver.Name = "EPSON AL-C7000 Advanced"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriver.FilePath = "\\macs-szmail1\Data\ITEC\Software\Printer\C7000\SCHINESE\WIN2000"
objDriver.InfName = "\\macs-szmail1\Data\ITEC\Software\Printer\C7000\SCHINESE\WIN2000\EPKAFCFE.inf"
intResult = objDriver.AddPrinterDriver(objDriver)
WScript.Echo intResult & "安装成功"

'Config printer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "EPSON AL-C7000 Advanced"
objPrinter.PortName   = objNewPort.Name
objPrinter.DeviceID   = "EPSON AL-C7000 Advanced"
objPrinter.Location = "SZ"
objPrinter.Network = True
objPrinter.Shared = False
objPrinter.ShareName = " "
objPrinter.Put_
objPrinter.SetDefaultPrinter()


End select      
     
End if

next

aku1

可惜国内讨论脚本的并不多,很遗憾,尤其我在制造行业,这个基本没什么用,所以现在改写Erp report,脚本权当兴趣了,以后的windows平台主推powershell了,是面向对象的,功能更强大不过还在完善了