菜鸟求助 描述性编程 命名规范-京东购物车

赵佳乐SMILE

这两天在研究几个问题

虽然研究出来了 不过感觉有些凌乱

因为我没怎么用过描述性编程 也没接触过实际项目

请问，描述性编程有什么规范？
oWebElements 就是很多行
和o2WebElements 就是一行
其实我觉得写的挺恶心的 后来自己都乱了

请指点指点我的代码 写些改进意见，谢谢

1. 'msgbox Browser("奶粉 - 商品搜索 - 京东").Page("奶粉 - 商品搜索 - 京东").WebElement("去购物车结算").GetROProperty("innertext")
   
2. 
   
3. Dim oWebElements,oDesc
   
4. Set oDesc=description.Create()
   
5. oDesc("micClass").value="WebElement"
   
6. oDesc("html tag").value="span"
   
7. oDesc("class").value="p-price"
   
8. set oWebElements= Browser("奶粉 - 商品搜索 - 京东").Page("奶粉 - 商品搜索 - 京东").ChildObjects(oDesc)
   
9. oCount=oWebElements.count()
   
10. 
    
11. Dim tempObj
    
12. Dim MyString, MyArray, Msg
    
13. 
    
14. Dim deleteIndex
    
15. deleteIndex=-1
    
16. 
    
17. For i=0  To  oCount-1
    
18.     Set tempObj = oWebElements.Item(i)
    
19.         sliptString=tempObj.GetROProperty("innertext")
    
20. 
    
21.         intPrice=between(sliptString,"￥","×")
    
22.         intNums=between(sliptString,"×","")
    
23. 
    
24.         intTotal=intTotal+(intPrice*intNums)
    
25. 
    
26.         If  (intTotal>1000) and (deleteIndex=-1)Then
    
27.                 deleteIndex=i
    
28.         End If
    
29. 
    
30. Next
    
31. 
    
32. msgbox "有"& oCount &"种商品"
    
33. 
    
34. Dim o2WebElements,o2Desc
    
35. Set o2Desc=description.Create()
    
36. o2Desc("micClass").value="WebElement"
    
37. o2Desc("html tag").value="div"
    
38. o2Desc("class").value="smb ar"
    
39. set o2WebElements= Browser("奶粉 - 商品搜索 - 京东").Page("奶粉 - 商品搜索 - 京东").ChildObjects(o2Desc)
    
40. o2Count=o2WebElements.count()
    
41. For i=0  To  o2Count-1
    
42.     Set tempObj = o2WebElements.Item(i)
    
43.         sliptString=tempObj.GetROProperty("innertext")
    
44. Next
    
45. 
    
46. actPrice=between(sliptString,"￥ ","去")
    
47. 
    
48. If  FormatNumber(intTotal,2)=FormatNumber(actPrice,2) Then
    
49.         Reporter.ReportEvent micPass, "共计相等", "共计价格为："& actPrice
    
50. Else
    
51.         Reporter.ReportEvent micFail, "共计不相等", "共计价格为："& actPrice &"各商品价格之和为："& intTotal
    
52. End If
    
53. 
    
54. If  deleteIndex>=0Then
    
55.         For j=deleteIndex To oCount-1
    
56.                 Browser("奶粉 - 商品搜索 - 京东").Page("奶粉 - 商品搜索 - 京东").Link("name:=删除","index:=" & j).Click
    
57.         Next
    
58. End If
    
59. 
    
60. '得到两个字符串中间的字符串。   
    
61. '例如：   
    
62. 'text="人民币300元",tBefore="人民币",tAfter="元"   
    
63. '使用between(text,tBefore,tAfter)得到300.   
    
64. Public Function between(words,wordBefore,wordAfter)   
    
65.     t1=InStr(words,wordBefore)   
    
66.     If t1=0 Then  
    
67.         between=words   
    
68.     Else  
    
69.         L1=Len(wordBefore)   
    
70.         wordsRight=Right(words,Len(words)-t1-L1+1)   
    
71.         t2=InStr(wordsRight,wordAfter)   
    
72.         If t2=0 Then  
    
73.             wordAfter=""  
    
74.         End If  
    
75.         If wordAfter="" Then  
    
76.             t2=Len(wordsRight)+1   
    
77.         Else  
    
78.             t2=InStr(wordsRight,wordAfter)   
    
79.         End If  
    
80.         needWord=Left(wordsRight,t2-1)   
    
81.         between=needWord   
    
82.     End If  
    
83. End Function  
    

复制代码

cellule

你可以去百度下，编码参数命名规范，这就不拉了，省的被斑竹拉进小黑屋

赵佳乐SMILE

回复 2# cellule


    谢谢 就是不知道搜啥关键词。。哈哈 自己搜没搜出来

joykao

最基本代码要有可读性吧，易读性吧

赵佳乐SMILE

回复 4# joykao

你的意思是加注释？还是命名要有可读性？

joykao

回复 5# 赵佳乐SMILE


自己都这么说了，说明你已经知道怎么做比较好了哇

赵佳乐SMILE

回复 6# joykao


    知道 但是以前写代码 就被领导说过 命名不好 至今没掌握要领。。 呵呵

cellule

匈牙利命名法，基本结构为scope_typeVariableName，它使用3字符前缀来表示数据类型，3个字符的前缀必须小写，前缀后面是由表意性强的一个单词或多个单词组成的名字，而且每个单词的首写字母大写，其它字母小写，这样保证了对变量名能够进行正确的断句。

joykao

回复 7# 赵佳乐SMILE
命名还是很有技巧性的，比如你对一个对象的命名，但是其他的人也能看得懂，那你命名的思想就可以了哇

赵佳乐SMILE

回复 8# cellule


    一下开窍了 谢谢

赵佳乐SMILE

回复 9# joykao


    我感觉我现在弄的东西 就是我看的懂 然后过个半个月 我自己也看不懂了 哈哈

joykao

回复 11# 赵佳乐SMILE


    那好吧。。。。半个月以后再纠结吧

32712784

LZ很厉害哇！ 先收藏，慢慢学！