[原創(chuàng)]在ksh環(huán)境下控制字符串輸入的腳本

lvgq2001

本人因工作需要在SCO的ksh環(huán)境下寫(xiě)了一個(gè)控制字符串輸入的腳本，
用于在shell腳本中輸入某些需要限制長(zhǎng)度，不能含有特殊字符的變量值，
適合作為數(shù)據(jù)錄入的界面。歡迎大家批評(píng)指正，謝謝！
腳本如下：

1. #!/bin/ksh
   
2. # ksh環(huán)境下控制字符串輸入的shell
   
3. # 仙桃市農(nóng)村信用合作聯(lián)社 呂永輝
   
4. getcon(){
   
5. stty raw -echo
   
6. TempC=`dd if=/dev/tty bs=1 count=1 2>/dev/null | od -b | sed '$d' | awk '{printf("obase=10;ibase=8;%d\n",$2)}' | bc`
   
7. stty -raw
   
8. echo $TempC
   
9. }
   
10. get_str(){ # 參數(shù):1-長(zhǎng)度 2-提示行 3-縱坐標(biāo) 4-變量名 5-是否可空
    
11. eval $4=""   # 清空目標(biāo)變量的值
    
12. set -A StrT  # 清空數(shù)組元素的值
    
13. while
    
14.    i=0
    
15.    echo "[${3};3H`printf "%-10s[%$1s]" ${2} ' '`" > /dev/tty
    
16.    echo "[${3};14H\c" > /dev/tty
    
17.    while
    
18.    [ "$i" = "$1" ] && break
    
19.    stty -echo
    
20.    C_Code=`getcon`
    
21.     case $C_Code in
    
22.      13|127) break;; # 回車(chē)、<DEL>跳出
    
23.      27)stty min 0 time 1;C_Code=`getcon`;stty min 1 time 1 #處理功能鍵<esc>序列
    
24.         [ $C_Code -eq 91 ] && {
    
25.           C_Code=`getcon`
    
26.           case $C_Code in
    
27.             65)C_Code=27;C_Fun=Up;break;;
    
28.             66)C_Code=27;C_Fun=Down;break;;
    
29.             67)C_Code=27;C_Fun=Right;break;;
    
30.             68)C_Code=27;C_Fun=Left;break;;
    
31.             71)C_Code=27;C_Fun=PgUp;break;;
    
32.             73)C_Code=27;C_Fun=PgDn;break;;
    
33.             *)C_Code=13;break;;
    
34.           esac
    
35.                 }||{
    
36.           C_Code=27;C_Fun=ESC;break
    
37.                 };;
    
38.      60|61|62|63|91|92|93|123|124|125) continue;; # 屏蔽限制字符
    
39.     esac
    
40.    [ $C_Code -eq 8 ] && {             # 處理<Backspace>鍵功能
    
41.     [ i -eq 0 ] && {
    
42.            echo "[${3};`expr 14 + $i`H\c" > /dev/tty
    
43.         continue
    
44.         }
    
45.     j=`expr $i - 1`
    
46.     [ "${StrT[$j]}" = "" ] && {
    
47.       StrT[$i]=""
    
48.       StrT[$j]=""
    
49.       i=`expr $j - 1`
    
50.       StrT[$i]=""
    
51.       echo "[${3};`expr 14 + $i`H  \c" > /dev/tty
    
52.       echo "[${3};`expr 14 + $i`H\c" > /dev/tty
    
53.             }||{
    
54.       StrT[$i]=""
    
55.       i=`expr $i - 1`
    
56.       StrT[$i]=""
    
57.       echo "[${3};`expr 14 + $i`H \c" > /dev/tty
    
58.       echo "[${3};`expr 14 + $i`H\c" > /dev/tty
    
59.             }
    
60.       continue
    
61.         }
    
62.      [ $C_Code -lt 43 ] && continue # 屏蔽特殊字符
    
63.      StrT[$i]="`echo $C_Code| awk '{printf("%c\n",$1)}'`"
    
64.      [ "${StrT[$i]}" = " " -o "${StrT[$i]}" = "" ] && continue
    
65.      [ $C_Code -gt 128 ] && {
    
66.         StrA=`echo -n ${StrT[$i]}`
    
67.         j=`echo -n $i`
    
68.         i=`expr $i + 1`
    
69.         [ "$i" = "$1" ] && {
    
70.         StrT[$j]=""
    
71.         i=`expr $i - 1`
    
72.              echo -n "[${3};`expr 14 + $j`H ]" > /dev/tty
    
73.              echo "[${3};`expr 14 + $j`H\c" > /dev/tty
    
74.         continue
    
75.                 } || {
    
76.         C_Code=`getcon`
    
77.         StrT[$i]="`echo $C_Code| awk '{printf("%c\n",$1)}'`"
    
78.         StrT[$j]=`echo -n ${StrA}${StrT[$i]}`
    
79.         StrT[$i]=""
    
80.                      }
    
81.                 }
    
82.      C_Str=`echo ${StrT[*]} | sed 's/ //g'`
    
83.      stty echo
    
84.      echo  "[${3};14H${C_Str}\c" > /dev/tty
    
85.      do
    
86.      i=`expr $i + 1`
    
87.      done
    
88. do
    
89.      [ $C_Code -eq 127 -o $C_Code -eq 27 ] && {
    
90.      # <del>、<esc>丟棄輸入，還未加入處理功能鍵序列的代碼。
    
91.        [ $5 -eq 1 ] && {
    
92.         C_Str='';continue
    
93.                 }||{
    
94.         stty echo;eval $4="";break
    
95.                 }
    
96.         }
    
97.      [ $C_Code -eq 13 ] && {
    
98.        [ $5 -eq 1 -a "$C_Str" = "" ] && {
    
99.         continue
    
100.                 }||{
     
101.         stty echo;eval $4=`echo -n $C_Str`;C_Str="";break
     
102.                 }
     
103.         }
     
104.      [ "$i" = "$1" ] && {
     
105.         stty echo;eval $4=`echo -n $C_Str`;C_Str="";break
     
106.                 }
     
107.      C_Str=''
     
108.      set -A StrT
     
109. done
     
110. }
     
111. # get_str 參數(shù):1-變量長(zhǎng)度 2-標(biāo)題 3-縱坐標(biāo) 4-變量名 5-是否可空
     
112. clear
     
113. conI=5
     
114. get_str 2 機(jī)構(gòu)號(hào) $conI InstNo 1
     
115. conI=`expr $conI + 1`
     
116. get_str 1 資產(chǎn)主類(lèi) $conI AssetsClass 1
     
117. conI=`expr $conI + 1`
     
118. get_str 30 資產(chǎn)名稱(chēng) $conI AssetsName 1
     
119. conI=`expr $conI + 1`
     
120. get_str 30 建筑物地址 $conI AssetsAdd 0
     
121. conI=`expr $conI + 1`
     
122. get_str 20 房產(chǎn)證號(hào)碼 $conI AbstractTitle 0
     
123. conI=`expr $conI + 1`
     
124. get_str 20 土地證號(hào)碼 $conI TenureTitle 0
     
125. conI=`expr $conI + 1`
     
126. get_str 10 保管人 $conI Custodian 0
     
127. conI=`expr $conI + 1`
     
128. get_str 60 備注 $conI Remark 0
     
129. echo "\n $AssetsClass $InstNo $AssetsName \n 地址：$AssetsAdd \n 房產(chǎn)證號(hào)：$AbstractTitle \n土地證號(hào):$TenureTitle 保管人:$Custodian \n 備注：$Remark"
     

復(fù)制代碼

[ 本帖最后由 lvgq2001 于 2007-8-12 19:45 編輯 ]

寂寞烈火

不錯(cuò)~~, 支持原創(chuàng)! ^_^

eGenius

學(xué)習(xí)了