重复程序的一部分，而其他部分保持不变

Question

我做了一个聊天程序，希望它自动刷新，这样我就可以摆脱上面的刷新选项。 唯一的问题是我需要从:A到Echo -----....所有内容都可以重复，而下面的所有内容都不需要。 我不希望将其拆分为2个文件。

 :A
    cls
    Echo Server: %S%
    Echo Press Q to Quit Or Press R to refresh chat log.
    echo ---------------------------------------------------------
    type %S%.txt
    echo ---------------------------------------------------------
    set /p M=Enter Your Message:
    if "%M%"=="Q" goto B
    if "%M%"=="q" goto B
    if "%M%"=="R" goto A
    if "%M%"=="r" goto A
    echo %U%: %M% >>%S%.txt
    goto A

Answer 1

注意

• if /I 执行不区分大小写的字符串比较 ；
• :eof 这个预定义的标签将退出当前例程 ；
• call :label 跳转到当前批处理脚本中的标签（子例程） 。

下一个代码段可能会有所帮助。

:A
    call :repeatHeader
    set /p "M=Enter Your Message: "
    if /I "%M%"=="Q" goto :B
    if /I "%M%"=="R" (
        call :refreshLog
        goto :A
    )
    echo %U%: %M% >>%S%.txt
    goto :A

:repeatHeader
    Echo Server: %S%
    Echo Press Q to Quit Or Press R to refresh chat log.
goto :eof

:refreshLog
    cls
    echo ---------------------------------------------------------
    type %S%.txt
    echo ---------------------------------------------------------
goto :eof

:B