Board logo

标题: 【练习-003】批处理实现文本左右对齐排版 [打印本页]

作者: pusofalse    时间: 2008-7-25 21:11     标题: 【练习-003】批处理实现文本左右对齐排版

如1.txt内容如下。
  1. 111111111111111111111    98912 张三
  2. 222222222222222222    150020 李四四
  3.   333333333333333333333    360000 王五
  4. 444444444444444444    2332 赵六六
  5.   555555555555555555    222 田七
  6. 666666666666666666666    999999 舞吧
复制代码
通过批处理输出为:
  1. 111111111111111111111      98912 张三
  2. 222222222222222222        150020 李四四
  3. 333333333333333333333     360000 王五
  4. 444444444444444444          2332 赵六六
  5. 555555555555555555           222 田七
  6. 666666666666666666666     999999 舞吧
复制代码
代码要求,不生成任何临时文件。
代码简洁,视思路与代码加分!
------------------------------------------------------------------------------------------
本题只是给出一个简单的文本通过批处理排版,而要求代码的通用,正如batman版主所说,会是一个繁琐的过程,于是就题解题,不必考虑代码的通用。

[ 本帖最后由 batman 于 2008-7-27 23:57 编辑 ]
作者: batman    时间: 2008-7-25 22:48

我来帮大家理思路吧:
所有的列其实都是左右对齐,大家想下为什么吧。

[ 本帖最后由 batman 于 2008-7-26 01:25 编辑 ]
作者: 浅默    时间: 2008-7-26 06:55

@echo off
Setlocal Enabledelayedexpansion
set n=0
for /f "tokens=1,2*" %%i in (1.txt) do (
      set "ke=%%i %%j"
      set m=0
      call :1              
)
for /f "tokens=1,2*" %%i in (1.txt) do (
      set "ke1=%%i %%j"
      set ke2=%%i            
      set m1=0
      call :2
      echo !ke2! %%j %%k            
)
pause
goto :eof
:1
  if not "!ke:~%m%,1!"=="" set /a m+=1&goto 1
  if %m% gtr %n% set n=%m%
  goto :eof  

:2
  if not "!ke1:~%m1%,1!"=="" set /a m1+=1&goto 2
  set /a dd=n-m1
  for /l %%a in (1,1,%dd%) do set "ke2=!ke2! "     
  goto :eof
作者: fastslz    时间: 2008-7-26 11:31

不知道大家发现没?其实cmd文本排版是有潜规则的!
作者: youxi01    时间: 2008-7-26 12:08

呵呵,是
作者: pusofalse    时间: 2008-7-26 16:46

是。^_^
作者: pusofalse    时间: 2008-7-26 17:36

我本人的解,还是很繁琐,思路跟浅默的差不多。望更多人参与此题,求得更多的解!

  1. @echo off&setlocal enabledelayedexpansion
  2. set length=0
  3. for /f "tokens=1,2" %%a in (1.txt) do (
  4.      set x=0
  5.      call :lp %%a%%b
  6.      if !x! gtr !length! set length=!x!
  7. )
  8. set/a length+=4
  9. for /f "tokens=1,2,*" %%a in (1.txt) do (
  10. set x=0
  11. set/p=%%a <nul
  12. call :lp %%a%%b
  13. set/a s=length-x
  14. for /l %%i in (1 1 !s!) do set/p= <nul
  15. set/p=%%b<nul
  16. set/p= %%c<nul
  17. echo.
  18. )
  19. pause&exit/b
  20. :lp
  21. set str=%1
  22. :lp1
  23. if defined str set str=!str:~1!&set/a x+=1&goto lp1
复制代码

作者: fastslz    时间: 2008-7-26 18:11

这个是潜规则默认排版方式
  1. @echo off
  2. for /f "delims=*" %%a in (1.txt) do call :xxx %%a
  3. pause&exit
  4. :xxx
  5.     set "str=%*"
  6.     REM 注意:等号左侧是制表符
  7.     set "str=%str: = %"
  8.     echo.%str%
  9. goto:eof
复制代码

作者: pusofalse    时间: 2008-7-26 18:22

原帖由 fastslz 于 2008-7-26 18:11 发表
这个是潜规则默认排版方式
@echo off
for /f "delims=*" %%a in (1.txt) do call :xxx %%a
pause&exit

:xxx
    set "str=%*"
    set "str=%str: =        %"
    echo.%str%
goto:eof


第一次看到如此的方法,还没弄明白怎么回事,在我电脑上测试着不正确。但仍旧学习了!~
作者: fastslz    时间: 2008-7-26 18:35

是论坛字符问题
方法其实很简单call标签删除前面及后面的空格字符,替换空格字符为Tab键字符set "str=%str: =这里是Tab键字符%"
附上附件
作者: pusofalse    时间: 2008-7-26 18:42

原帖由 fastslz 于 2008-7-26 18:35 发表
是论坛字符问题
方法其实很简单call标签删除前面及后面的空格字符,替换空格字符为Tab键字符set "str=%str: =这里是Tab键字符%"
附上附件

测试文本:
  1. 1111111    aaaaaaaaaaaa 张三
  2. 222222sdf222222222222    150020 李四四
  3.   3333333sfd33333333333333    0 王五
  4. 44444444444aa4444444    2332 赵sdfafa六六
  5.   555555555    222 田七
  6. 666666666666666666666asaaaaaaaaa    9999999999999 舞
复制代码

作者: batman    时间: 2008-7-26 18:47     标题: 就题解题

个人认为如本题要充分考虑代码通用性的话,就会是一个相当复杂的过程,
于是,就题解题:
  1. @echo off&setlocal enabledelayedexpansion
  2. set "kong=           "
  3. for /f "delims=" %%a in (1.txt) do (
  4.     for %%i in (%%a) do (
  5.         set "str=%%i"&set /a n+=1
  6.         if !n! equ 2 (
  7.            set "str=%kong%!str!"
  8.            set /p=!str:~-10! <nul
  9.            ) else (
  10.            set "str=!str!%kong%"
  11.            set /p=!str:~,20! <nul
  12.     ))
  13.     set "n=0"&echo.
  14. )
  15. pause>nul
复制代码

作者: batman    时间: 2008-7-26 19:04

原帖由 fastslz 于 2008-7-26 18:35 发表
是论坛字符问题
方法其实很简单call标签删除前面及后面的空格字符,替换空格字符为Tab键字符set "str=%str: =这里是Tab键字符%"
附上附件

使用制表符是默认的左对齐分列,主要用来从文本向excel中导数据。
作者: 风行者    时间: 2008-7-26 20:03     标题: 我是最最新手,向你们学习

  1. @echo off & setlocal enabledelayedexpansion
  2. for /f "tokens=1-3 delims= " %%a in (1.txt) do (
  3. set /a n+=1
  4. if !n!==1 echo %%a      %%b   %%c
  5. if !n!==2 echo %%a         %%b  %%c
  6. if !n!==3 echo %%a      %%b  %%c
  7. if !n!==4 echo %%a         %%b    %%c
  8. if !n!==5 echo %%a         %%b     %%c
  9. if !n!==6 echo %%a      %%b  %%c
  10. )
  11. pause
复制代码

作者: pusofalse    时间: 2008-7-26 20:08

可以直接这样。。
echo 111111111111111111111      98912 张三
echo 222222222222222222        150020 李四四
echo 333333333333333333333     360000 王五
...
...
加分鼓励!一同进步!
作者: batman    时间: 2008-7-26 20:17

原帖由 风行者 于 2008-7-26 20:03 发表
@echo off & setlocal enabledelayedexpansion
for /f "tokens=1-3 delims= " %%a in (1.txt) do (
set /a n+=1
if !n!==1 echo %%a      %%b   %%c
if !n!==2 echo %%a         %%b  %%c
if !n!==3 echo %%a   ...

这种解法的确是太可爱了,100%的就题解题!
作者: 浅默    时间: 2008-7-26 20:29

使用tab键的都有哪些条件呢?11楼的测试文件不能成功,如果两行差距太大也不成功.
作者: namejm    时间: 2008-7-26 20:36

  默认情况下,一个tab键产生的空格相当于8个空格键产生的空格,如果字符串少于8个字符,则一个tab键就足够排版;如果多于8个字符,那么,一个tab键就没法排版了,需要增加tab键的个数,以保证tab键产生的空格个数多于字符串长度。
作者: more    时间: 2008-7-27 14:51

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=1,2*" %%a in ('type temp.txt') do (
  4.    set "mo=%%a"&set "niu=%%b"&set "m=0"&set "n=0"&set "very="
  5.    call :ming0 %%a %%b %%c
  6. )
  7. echo.&pause&exit
  8. :ming0
  9. if not "!mo:~%m%,1!"=="" (set "momo=!mo:~%m%,1!"&set /a "m+=1"&goto :ming0)
  10. :ming1
  11. if not "!niu:~%n%,1!"=="" (set "niuniu=!niu:~%n%,1!"&set /a "n+=1"&goto :ming1)
  12. set /a "ming=30-%m%-%n%"
  13. for /l %%i in (1 1 %ming%) do set "very=!very! "
  14. echo %1 %very% %2 %3
复制代码

作者: 523066680    时间: 2008-8-12 11:17     标题: 我也行!

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set a=0
  4. for /f "eol= tokens=1,2,3" %%a in ('type 1.txt') do (
  5. set /a a+=1
  6. set "lie1=%%a                                      "
  7. set lie1=!lie1:~0,30!
  8. set "lie2=%%b                                      "
  9. set lie2=!lie2:~0,20!
  10. echo,!lie1!!lie2:%%b=!%%b  %%c
  11. )
  12. pause
复制代码

作者: 523066680    时间: 2008-8-12 14:13

我稍微换一下思路,应该说是尽量的通用了……如果某文本太过畸形 那也是没办法的事了……
文本内容更新为:
  1. 111111111111111111111                                      98912 张三
  2. 222222222222222222    150020 李四四
  3.   333333333333333333333    360000 王五
  4. 4444444444444444444321542365445432453243243423432   11111143242342332 赵六六
  5.   555555555555555555    222 田七
  6. 666666666666666666666    999999                                   舞吧
复制代码
  1. @echo off
  2. mode con cols=100 lines=20
  3. setlocal enabledelayedexpansion
  4. for /l %%a in (1,1,80) do set kong= !kong!
  5. for /f "eol= tokens=1,2,3" %%a in ('type 1.txt') do (
  6. set lie1-2=%%a%%b%kong%
  7. set lie1-2=!lie1-2:~0,80!
  8. set lie1-2=%%a!lie1-2:%%a%%b=!%%b
  9. echo,!lie1-2!   %%c
  10. )
  11. pause
复制代码
原理:例如文本内容为:
ab******1*d
abc*************2********e
用for获得前面的两列
直接组合 则免去了中间的空格:
ab1
abc2
直接加上80个空格
ab1***************************……
abc2***************************……
然后保存前80位。
ab1*********……***
abc2********……***
把空格前移
ab*********……***1
abc********……***2
这样前面的就基本对齐了。后面的第三列 就不用说了…
我觉得应该可以了……至少我自己用不上太通用的,这个代码自己也没有当工具用过




忽忽……加了中文 或者字符……就被淘汰了……

[ 本帖最后由 523066680 于 2008-8-12 15:49 编辑 ]
作者: terse    时间: 2008-8-12 18:37

我来个  补齐字符方法   效率不怎么样
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=*" %%i in (1.txt) do call :lp %%i
  3. for /l %%i in (1 1 %t%) do for /l %%j in (1 1 !%%il!) do set "%%iv=!%%iv! "
  4. for /f "tokens=*" %%i in (1.txt) do call :lp0 %%i
  5. pause&exit
  6. :lp0
  7. set/a n+=1
  8.     if "%1"=="" set n=& echo %str1%&set str1=&goto :eof
  9.     set "str=%1!%n%v!"
  10.     call set "str1=%str1%%%str:~,!%n%l!%%"
  11. shift
  12. goto lp0
  13. :lp
  14. set/a n+=1
  15. if not defined %n%l set %n%l=0
  16.     if "%1"=="" set n=&goto :eof
  17.     for /f "skip=1 delims=:" %%i in ('^(echo %1^&echo.^)^|findstr /o ".*"') do set m=%%i
  18.     set t=%n%
  19.     if %m% gtr !%n%l! set %n%l=%m%
  20. shift
  21. goto lp
复制代码

作者: 随风    时间: 2008-8-12 21:27

不知此帖是否够通用?不过创建了临时文件。
http://bbs.bathome.net/viewthrea ... mp;highlight=%C5%C5
作者: weichenxiehou    时间: 2010-12-30 22:11

新接触批处理,很有意思,请各位大侠多多指教。在此送上我的代码,多多指教!既然各位大侠都说了就题解题,那不好意思了,嘿嘿……

  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=1-3" %%i in (test.txt) do (
  3. set temp1=%%i$$$$$&set temp2=$$$$$%%j&set temp3=%%k$$$$$
  4. set temp1=!temp1:~0,21!&set temp2=!temp2:~-6!&set temp3=!temp3:~0,3!
  5. set tempstr=!temp1!      !temp2! !temp3!
  6. set tempstr=!tempstr:$= !
  7. echo !tempstr!
  8. )
复制代码

[ 本帖最后由 weichenxiehou 于 2010-12-30 23:37 编辑 ]
作者: vincentzhou    时间: 2011-1-9 15:01

  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=1-3" %%a in (1.txt) do (
  3. set str=%%a%%b
  4. call:count
  5. set a=%%a
  6. set /a num=32-!num!
  7. set/p=!a!<nul
  8. for /l %%i in (1 1 !num!) do (set /p= <nul)
  9. echo %%b %%c
  10. )
  11. pause>nul
  12. :count
  13. if defined num set num=
  14. :loop
  15. if not "!str!"=="" (
  16. set str=!str:~1!
  17. set /a num+=1
  18. goto loop
  19. )
复制代码

作者: CrLf    时间: 2011-2-22 18:46

下载了10楼附件,可是还是没效果啊,莫非win7不支持这样么...
作者: shelluserwlb    时间: 2014-12-17 23:41

  1. @echo off  
  2. setlocal EnableDelayedExpansion
  3. set "space= "
  4. for /f "tokens=1,2*" %%a in (1.txt) do (
  5.     set "str1=%%a"& set /a n=0
  6.     set /a s=1 &  call :1
  7.     set "x=!str1!!str2!" & set str2=
  8.     set "str1=%%b" & set /a n=0
  9.     set /a s=2 & call :1
  10.     set "y=!str2!!str1!" & set str2=
  11.     set "str1=%%c" & set /a n=0
  12.     set /a s=3 & call :1
  13.     set "z=!str2!!str1!" & set str2=
  14.     echo !x!!y!!z!
  15. )
  16. pause>nul
  17. goto :eof
  18. :1
  19. if not "!str1:~%n%,1!"=="" set /a n+=1 & goto :1
  20. if %s% equ 1 (set /a m=26-%n% & goto :2)
  21. if %s% equ 2 (set /a m=10-%n% & goto :2)
  22. set /a m=10
  23. :2
  24. for /l %%i in (1,1,!m!) do set "str2=!str2!%space%"
  25. goto :eof
复制代码
效果见下图:
作者: bailong360    时间: 2015-3-15 09:04

  1. @Echo Off
  2. SetLocal EnableDelayedExpansion
  3. For /F "Tokens=1,2,3" %%i In (1.txt) Do (
  4. Set L1=%%i                    
  5. Set L2=                    %%j
  6. Echo !L1:~0,25!!L2:~-15! %%k
  7. )
复制代码

作者: 尘丶    时间: 2015-9-18 17:51

  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=1,2,3 delims= " %%a in (a.txt) do (
  3. set k=%%a
  4. set k1=%%b
  5.     for /l %%c in (1,1,25) do if "!k:~%%c,1!"=="" set "k=!k! "
  6.     for /l %%d in (1,1,5) do if "!k1:~%%d,1!"=="" set "k1=!k1! "
  7. echo;!k! !k1! %%c
  8. )
  9. pause
复制代码

作者: 依山居    时间: 2015-11-4 12:38

  1. # python版实现文本左右对齐排版
  2. # 题目来源: http://www.bathome.net/thread-1246-1-1.html
  3. # 依山居 7:17 2015/11/4
  4. # str.format 字符串格式化参考:
  5. # http://www.crifan.com/python_string_format_fill_with_chars_and_set_alignment/
  6. # just()字符串对齐 参考:
  7. # http://blog.csdn.net/u012515223/article/details/20463231
  8. '''
  9. 1.txt内容:
  10. 111111111111111111111    98912 张三
  11. 222222222222222222    150020 李四四
  12.   333333333333333333333    360000 王五
  13. 444444444444444444    2332 赵六六
  14.   555555555555555555    222 田七
  15. 666666666666666666666    999999 舞吧
  16. '''
  17. #说明我的代码没按题目要求全部使用空格填充是为了让代码用法看起来直观一些。
  18. #方法一 format格式化对齐
  19. def f1():   
  20.     with open("1.txt","r") as f:
  21.         for s in f:
  22.             l=s.rsplit ()
  23.             t='{0:-<25} {1: >7} {2}'.format(l[0],l[1],l[2])   
  24.             print(str(t))
  25. '''
  26. 输出:
  27. 111111111111111111111----   98912 张三
  28. 222222222222222222-------  150020 李四四
  29. 333333333333333333333----  360000 王五
  30. 444444444444444444-------    2332 赵六六
  31. 555555555555555555-------     222 田七
  32. 666666666666666666666----  999999 舞吧
  33. '''
  34. #方法2 使用just()对齐
  35. r=''
  36. def f2():
  37.     f=open("1.txt","r")
  38.     for s in f:
  39.         l=s.rsplit()
  40.         print(l[0].ljust(25," "),l[1].rjust(10,"^"),l[2])
  41. '''
  42. 输出:
  43. 111111111111111111111     ^^^^^98912 张三
  44. 222222222222222222        ^^^^150020 李四四
  45. 333333333333333333333     ^^^^360000 王五
  46. 444444444444444444        ^^^^^^2332 赵六六
  47. 555555555555555555        ^^^^^^^222 田七
  48. 666666666666666666666     ^^^^999999 舞吧
  49. '''
  50. #方法3
  51. '''
  52. 思路是rsplit拆分成三列,l得到如['111111111111111111111', '98912', '张三']
  53. 算出列1,列2的最长,以此算出需要填充的长度,
  54. '''
  55. def f3():
  56.     f=open("1.txt","r")
  57.     txt=f.readlines()
  58.     maxa=0
  59.     maxb=0
  60.     for line in txt:
  61.         line=line.rsplit()
  62.         la=len(line[0])
  63.         lb=len(line[1])
  64.         if la >maxa:
  65.             maxa=la
  66.         if lb > maxb:
  67.             maxb=lb
  68.     for line in txt:      
  69.         line=line.rsplit()
  70.         la=len(line[0])
  71.         lb=len(line[1])
  72.         if la ==maxa:
  73.             tla=line[0]
  74.         elif la<maxa:
  75.             tla=line[0]+">"*(maxa-la)
  76.         if lb ==maxb:
  77.             tlb=line[1]
  78.         elif lb<maxb:
  79.             tlb=" "*(maxb-lb)+line[1]
  80.         print(tla,tlb,line[2])
  81. '''
  82. 输出:
  83. 111111111111111111111  98912 张三
  84. 222222222222222222>>> 150020 李四四
  85. 333333333333333333333 360000 王五
  86. 444444444444444444>>>   2332 赵六六
  87. 555555555555555555>>>    222 田七
  88. 666666666666666666666 999999 舞吧
  89. '''
复制代码

作者: 依山居    时间: 2015-11-6 01:54

  1. """
  2. #方法4 重用了方法3的上半部分代码算出列1列2最大长度,以此对齐顶点。
  3. #这个方法的思路是不使用空格或者其它符号填充,而是在写入文件时,
  4. #指针直接前移使字符对齐。空的字符位置会自动被\x00填充?
  5. #
  6. """
  7. def f4():
  8.    
  9.     f=open("1.txt","r")
  10.     txt=f.readlines()
  11.     maxa=0
  12.     maxb=0
  13.     for line in txt:
  14.         line=line.rsplit()
  15.         la=len(line[0])
  16.         lb=len(line[1])
  17.         if la >maxa:
  18.             maxa=la
  19.         if lb > maxb:
  20.             maxb=lb
  21.     w=open("temp.txt","w+")
  22.     for line in txt:
  23.         line=line.rsplit()
  24.         la=len(line[0])
  25.         lb=len(line[1])
  26.         w.write(line[0])
  27.         #算了半天
  28.         tw=maxa+maxb+1-la-lb
  29.         w.seek(tw+w.tell())
  30.         w.write(line[1])
  31.         w.seek(w.tell()+1)
  32.         w.write(line[2]+"\n")
  33.     w.flush()
  34.     w.seek(0)
  35.     txt=w.read()
  36.     print(txt)
  37.         
  38. """
  39. 输出:
  40. 111111111111111111111
复制代码
-_-!剪贴碰到00自动截断了。输出内容不能完全贴上来。
作者: ShenMian    时间: 2018-1-20 22:50

本帖最后由 ShenMian 于 2018-1-20 22:52 编辑

格式printf 字符串1 空格数 字符串2 空格数 ... 空格数 字符串n
代码:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=1,2,3" %%a in (1.txt) do (
  4.     call:printf %%a 20 %%b 20 %%c
  5.     echo;
  6. )
  7. exit /b
  8. :printf
  9. set /p "=%~1"<nul
  10. set length=0
  11. set "str=%~1"
  12. :printf_0
  13. if "!str:~%length%!" == "" (
  14. for /l %%a in (%length%,1,%2) do set /p = <nul
  15. shift
  16. shift
  17. if not "%~3" == "" goto printf
  18. exit /b
  19. )
  20. set /a length+=1
  21. goto printf_0
复制代码

作者: yujw668    时间: 2018-8-27 17:29

回复 12# batman


    版主,您好,看了您的代码很实用,但是如果有一种情况就是第二列有空的,怎么处理呢?
例如原文本:
111111111111111111111    98912 张三
222222222222222222    150020 李四四
  333333333333333333333    360000 王五
444444444444444444         赵六六
  555555555555555555        田七
666666666666666666666    999999 舞吧

如果第二列为空的话,生成的第三列就跑到了第二列去了,请问下怎么解决呢?
作者: ai20110304    时间: 2018-9-4 15:42

回复 1# pusofalse
  1. ::文本两端对齐
  2. @echo off & setlocal enabledelayedexpansion
  3. cd /d %~dp0
  4. ::将空格替换成#号,再在基础上进行切割,结合tab水平制作符。
  5. for /f "delims=" %%i in (1.txt) do (
  6. set "str=%%i"
  7. set "str=!str: =#!"
  8. rem echo;!str!
  9. for /f "tokens=1-3 delims=#" %%a in ("!str!") do echo;%%a %%b %%c
  10. )
  11. pause
复制代码

作者: qixiaobin0715    时间: 2021-2-19 16:09

就题解题,前2列字符目视不超过30个字符,KG30的值取30个空格:
  1. @echo off
  2. set KG30=                              
  3. setlocal enabledelayedexpansion
  4. for /f "tokens=1-3" %%a in (1.txt) do (
  5. set str=%%a%%b%KG30%
  6. set str=!str:~0,30!
  7. set str=!str:%%b=!%%b %%c
  8. echo !str!
  9. )
  10. pause
复制代码

作者: qixiaobin0715    时间: 2021-2-20 08:45

根据3楼思路改写,实现列与列之间空格最少:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set n=0
  4. for /f "tokens=1,2" %%i in (1.txt) do (
  5.     set "var=%%i%%j"
  6.     set m=0
  7.     call :1
  8. )
  9. for /l %%x in (1,1,!n!) do set KG= !KG!
  10. set /a n+=1
  11. for /f "tokens=1-3" %%a in (1.txt) do (
  12.     set str=%%a%%b%KG%
  13.     for %%y in (!n!) do set str=!str:~0,%%y!
  14.     set str=!str:%%b=!%%b %%c
  15.     echo !str!
  16. )
  17. pause
  18. goto :eof
  19. :1
  20. if not "!var:~%m%,1!"=="" set /a m+=1&goto 1
  21. if %m% gtr %n% set n=%m%
  22. goto :eof
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2