0

私は「TechnoExpo」の学校プロジェクトに取り組んでいます。2 つの "()" の間に文字列を挿入する方法と、4 つの変数を計算する方法を知る必要があります。

Input One Example: 6(3)
Input Two Example: 2(7)

「6」を「X1」という名前の変数に、「3」を「Y1」という名前の変数に、「2」を「X2」という名前の変数に、最後に「7」を「Y2」という名前の変数に設定する必要があります。次に、("Y2"-"Y1") を ("X2"-"X2") で割って計算する必要があります。ここから、自分で情報を表示できます。これはベータ版のバッチ ファイルです。

@Echo Off
:StartUpConfiguration
Cls
Mode Con Cols=50 Lines=25
Color 0F

:Start
Set /P CordinateOne=[One]
Set /P CordinateTwo=[Two]
For /F "Tokens=1,2 delims=()" %%A In ("%CordinateOne%") Do Set "X1=%%A" & set "Y1=%%B"
For /F "Tokens=1,2 delims=()" %%A In ("%CordinateTwo%") Do Set "X2=%%A" & set "Y2=%%B"
Echo Slope:
Set /A Y=%Y2%-%Y1%
Set /A X=%X2%-%X1%
Set /A M=%Y%/%X%
Echo [%M%]
Echo.
Echo %Y2% - %Y1% [%Y%]
Echo %X2% - %X1% [%X%]
Pause
4

2 に答える 2

2 
strInput1 = UserInput( "CordinateOne=:" )
strInput2 = UserInput( "CordinateTwo=:" )


substr1=Split(strInput1,"(")
substr2=Split(strInput2,"(")

X1=CInt(substr1(0))
Y1=CInt(Split(substr1(1),")")(0))

X2=CInt(substr2(0))
Y2=CInt(Split(substr2(1),")")(0))

X=X2-X1
Y=Y2-Y1
M=Y/X
MI=Y Mod X

Wscript.Echo "[" & M & "]" & "or [" & M & "." & MI & "]"
Wscript.Echo ""
Wscript.Echo Y2 & "-" & Y1 & " [" & Y & "]"
Wscript.Echo X2 & "-" & X1 & " [" & X & "]"  


Function UserInput( myPrompt )
' This function prompts the user for some input.
' When the script runs in CSCRIPT.EXE, StdIn is used,
' otherwise the VBScript InputBox( ) function is used.
' myPrompt is the the text used to prompt the user for input.
' The function returns the input typed either on StdIn or in InputBox( ).
' Written by Rob van der Woude
' http://www.robvanderwoude.com
    ' Check if the script runs in CSCRIPT.EXE
    If UCase( Right( WScript.FullName, 12 ) ) = "\CSCRIPT.EXE" Then
        ' If so, use StdIn and StdOut
        WScript.StdOut.Write myPrompt & " "
        UserInput = WScript.StdIn.ReadLine
    Else
        ' If not, use InputBox( )
        UserInput = InputBox( myPrompt )
    End If
End Function

これは と の両方で実行でき ます。入力の検証はcscript.exeありません。wscript.exe

于 2013-10-21T21:34:19.160 に答える
1

あなたのタイトルに答えるHow to extract part of string in Visual Basic Scripting (VBS)?：

必要な情報は次のとおりです。

MSDN: 中間関数

W3Schools: 中間機能

例：

txt="This is a beautiful day!"
wscript.Echo(Mid(txt,1,1))
于 2013-10-21T20:43:22.473 に答える