- 论坛徽章:
- 11
|
文件内容:
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" 这个数值为2或者别的数字,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" 这个数值为2或者别的数字,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或者别的数字' + '"' + left
....
|
|