- 論壇徽章:
- 11
|
文件內(nèi)容:
Sub Main
crt.Screen.WaitForString "Select Mode: "
crt.Screen.Send "1" & chr(13)
crt.Screen.WaitForString "Input group: "
crt.Screen.Send "19" & chr(13)
crt.Screen.WaitForString "Input device: "
crt.Screen.Send "1" & chr(13)
crt.Screen.WaitForString "Input accounts: "
crt.Screen.Send "4" & chr(13)
crt.Screen.WaitForString "assword: "
crt.Screen.Send "12344" & chr(13)
End Sub
我希望修改 crt.Screen.WaitForString "Input device: " 下的 crt.Screen.Send "1" & chr(13) 這行中 "1" 這個數(shù)值為2或者別的數(shù)字,1這個值是會變化的,但肯定在 這一行。同時需要修改 crt.Screen.WaitForString "assword: " 這行下 crt.Screen.Send "12344" & chr(13) 中的 12344 這個值,同樣這個值是會變化的。
請教我怎么才能只修改該這兩行的值?
text = """
Sub Main
crt.Screen.WaitForString "Select Mode: "
crt.Screen.Send "1" & chr(13)
crt.Screen.WaitForString "Input group: "
crt.Screen.Send "19" & chr(13)
crt.Screen.WaitForString "Input device: "
crt.Screen.Send "1" & chr(13)
crt.Screen.WaitForString "Input accounts: "
crt.Screen.Send "4" & chr(13)
crt.Screen.WaitForString "assword: "
crt.Screen.Send "12344" & chr(13)
End Sub
"""
#修改 crt.Screen.WaitForString "Input device: " 下的 crt.Screen.Send "1" & chr(13) 這行中 "1" 這個數(shù)值為2或者別的數(shù)字,1這個值是會變化的,但肯定在 這一行。
text1,text2=text.split("Input device:",1)
part1,part2=text2.split('crt.Screen.Send "',1)
number,left=part2.split('"',1)
text = text1+"Input device:"+part1+'crt.Screen.Send "'+ '2或者別的數(shù)字' + '"' + left
....
|
|