[老狼][源码分享]普特文本对比----遇见蔷薇泡沫(31) [复制链接]

用户需要达到的效果:


更多例子:
你好傻瓜/傻瓜你好，结果=傻瓜
敌转啊/无敌转圈圈啊，结果=敌转啊
111000/101010，结果=1000
用户提供的易语言源码:


用户需求转换为按键代码(有更好思路 请跟贴):

'安卓代码TracePrint 普特文本比较("a110b", "a101b" )
TracePrint 普特文本比较("你好啊,哈哈哈", "好哈" )
TracePrint 普特文本比较("你好啊,哈哈哈", "好哈哈" )
TracePrint 普特文本比较("敌转啊", "无敌转圈圈啊" )
TracePrint 普特文本比较("111000", "101010" )
Function 普特文本比较(A内容, B内容)
Dim 单字 ="",结果="",位置=0
For i = 1 To UTF8.len(B内容)
单字 = UTF8.Mid(B内容, i, 1)
位置=UTF8.InStr(1, A内容, 单字 )
If 位置> 0 Then
A内容 = Mid(A内容, 位置, Len(A内容))
结果=结果&单字
End If
Next
普特文本比较= 结果
End Function//=====================================
//PC代码
TracePrint 普特文本比较("a110b", "a101b" )
TracePrint 普特文本比较("你好啊,哈哈哈", "好哈" )
TracePrint 普特文本比较("你好啊,哈哈哈", "好哈哈" )
TracePrint 普特文本比较("敌转啊", "无敌转圈圈啊" )
TracePrint 普特文本比较("111000", "101010" )
Function 普特文本比较(A内容, B内容)
单字 ="":结果="":位置=0
For i = 1 To len(B内容)
单字 = Mid(B内容, i, 1)
位置=InStr( A内容, 单字 )
If 位置> 0 Then
A内容 = Mid(A内容, 位置, Len(A内容))
结果=结果&单字
End If
Next
普特文本比较= 结果
End FunctionDim 大数字ocr="77554"'1-5行改成你自己ocr识别
Dim 小数字1ocr="34059"
Dim 小数字2ocr="77559"
Dim 小数字3ocr="8627"
Dim 小数字4ocr="3230"
Dim 数组(3),对比结果=0
数组(0)=len( 普特文本比较(大数字ocr, 小数字1ocr))
数组(1)=len( 普特文本比较(大数字ocr, 小数字2ocr))
数组(2)=len( 普特文本比较(大数字ocr, 小数字3ocr))
数组(3)=len( 普特文本比较(大数字ocr, 小数字4ocr))
For i = 1 To 3
If 数组(i) > 数组(i - 1) Then
对比结果=i    
End If
Next
Select Case 对比结果
Case 0
TracePrint "点击选项A"
Case 1
TracePrint "点击选项B"
Case 2
TracePrint "点击选项C"
Case 3
TracePrint "点击选项D"
End Select
Function 普特文本比较(A内容, B内容)
Dim 单字 ="",结果="",位置=0
For i = 1 To UTF8.len(B内容)
单字 = UTF8.Mid(B内容, i, 1)
位置=UTF8.InStr(1, A内容, 单字 )
If 位置> 0 Then
A内容 = Mid(A内容, 位置, Len(A内容))
结果=结果&单字
End If
Next
普特文本比较= 结果
End Function//=====================================