老刘1号

回复 66# niudd


    你这样水真的好？
附一个：

' 2>NUL&@(CLS&Set /p STR=键入：&CALL CSCRIPT -e:VBSCRIPT "%~0" "%%STR%%"&PAUSE&EXIT)
Option Explicit
Dim New_,i
For i = 1 To Len(Wscript.Arguments(0))
	If UCase(Mid(Wscript.Arguments(0),i,1))=Mid(Wscript.Arguments(0),i,1) Then
		New_=New_&LCase(Mid(Wscript.Arguments(0),i,1))
	ElseIf LCase(Mid(Wscript.Arguments(0),i,1))=Mid(Wscript.Arguments(0),i,1) Then
		New_=New_&UCase(Mid(Wscript.Arguments(0),i,1))
	Else
		New_=New_&Mid(Wscript.Arguments(0),i,1)
	End If
Next
Wscript.echo New_
复制代码