我们的代码当中有很多很多如下的代码：

  UarrMain[0] := AsMainType(edLayer, myStr, 'Layer', '结构层名称');

  UarrMain[1] := AsMainType(edKind, myStr, 'Kind', '稳定剂种类');

.......

   UArrSub[0] := AsSubType(myInt, True, 'seqnum', '序号');

  UArrSub[1] := AsSubType(myStr, False, 'BoxNumber', '试验盒号');

  UArrSub[2] := AsSubType(myFloat, False, 'BoxWeigth', '盒的质量');

.....

我现在需要提取第三个，第四个参数。

放上来，下次电脑坏就不用重新写了。工作当中用到的，可以减轻工作量。

一边学一边写的，比较手生，翻了很多次文档才写出来。关键是正则，当然没有考虑所有的情况。
这门语言对GUI支持的不好，因为是面向服务器的开发。就胡乱弄了个B/S的，代码如下：

 

  1. package main 
  2. import  
  3. (   
  4.   "io" 
  5.   "fmt" 
  6.   "regexp" 
  7.   "strings" 
  8.    "net/http" 
  9. ) 
  10.   
  11. const(  
  12.  SQL = "EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'AAAA', @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'CCCC', @level2type=N'COLUMN',@level2name=N'BBBB'" 
  13.  SQL2 = "EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'AAAA', @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'CCCC'" 
  14.  html =   
  15.   `<html> 
  16.    <head><title>提取<a/title></head> 
  17.    <body><form method = 'post'> 
  18.    TableName : <input type = "text" name = "tablename"></input> qs_Table 中的 TableName,比如 TestRecordC21 <br></br> 
  19.    表格名称 : <input type = "text" name = "tablename2"></input>比如 石料试验记录 <br></br> 
  20.    <textarea rows="20" cols="120" name = "target"></textarea><br></br> 
  21.    <input type = "submit" value = "Submit"></input> 
  22.    %s 
  23.    </form> 
  24.    </body> 
  25.    </html>` 
  26. )   
  27.   
  28. func mySearch(str string) (result string) { 
  29.   result = "" 
  30.   regSub := regexp.MustCompile(`(?i)AsSubType\s*\(\w+\s*\,\s*(True|False)\s*\,\s*\'\s*(\w+)\s*\'\s*\,\s*\'\s*(.*?)\s*\'`) 
  31.   regMain := regexp.MustCompile(`(?i)AsMainType\s*\(\w+\s*\,\s*(\w+)\s*\,\s*\'\s*(\w+)\s*\'\s*\,\s*\'\s*(.*?)\s*\'`) 
  32.    
  33.   resultSub := regSub.FindAllStringSubmatch(str, -1) 
  34.   resultMain := regMain.FindAllStringSubmatch(str, -1) 
  35.    
  36.   for _, V := range resultSub { 
  37.       result = result + strings.Replace(strings.Replace(SQL, "AAAA", V[3],-1), "BBBB", V[2], -1) + 
  38.                 "<br></br>" + " GO " + "<br></br>" 
  39.  } 
  40.   
  41.   for _, V := range resultMain { 
  42.   result = result + strings.Replace(strings.Replace(SQL, "AAAA", V[3],-1), "BBBB", V[2], -1) + 
  43.                 "<br></br>" + " GO " + "<br></br>" 
  44.  } 
  45.   
  46.   return  
  47. } 
  48.   
  49. func Analyze(w http.ResponseWriter, r *http.Request) { 
  50.   if r.Method == "GET" { 
  51.     io.WriteString(w, strings.Replace(html, "%s", "", -1)) 
  52.  return  
  53.   } 
  54.    
  55.   if r.Method == "POST"{ 
  56.     str := r.FormValue("target") 
  57.  tablename := r.FormValue("tablename") 
  58.  tablename2 := r.FormValue("tablename2") 
  59.  if tablename == "" { 
  60.    io.WriteString(w, strings.Replace(html, "%s", "<div border = '1'>" +  
  61.       "TableName 没有填写 " +"</div>", -1)) 
  62.    return 
  63.  } 
  64.  if tablename2 == "" { 
  65.    io.WriteString(w, strings.Replace(html, "%s", "<div border = '1'>" +  
  66.       "表格名称 没有填写 " +"</div>", -1)) 
  67.    return 
  68.  } 
  69.  if str == "" { 
  70.    io.WriteString(w, strings.Replace(html, "%s", "<div border = '1'>" +  
  71.       "查找内容 没有填写 " +"</div>", -1)) 
  72.   return 
  73.  } 
  74.   
  75.  SQLCMD := strings.Replace(html, "%s", "<div border = '1'>" +  
  76.       strings.Replace(mySearch(str), "CCCC", tablename, -1) +"</div>", -1) 
  77.     SQLCMD = SQLCMD + strings.Replace(strings.Replace(SQL2, "AAAA", tablename2, -1), "CCCC", tablename, -1) 
  78.  io.WriteString(w, SQLCMD) 
  79.   } 
  80. } 
  81.    
  82. func main(){  
  83.     fmt.Println("Open http://localhost:8888/extract") 
  84.   http.HandleFunc("/extract", Analyze) 
  85.   err := http.ListenAndServe(":8888", nil) 
  86.   if err != nil { 
  87.     fmt.Println(err.Error()) 
  88.   } 
  89. } 
  90.