vb代码翻译成易语言代码

'本程序的功能是相当于一个词典。在输入汉字之后,自动翻译成四位代码,翻译的规则就是查列表框,即将汉字用列表框对应的字符来替换。PrivateSubForm_Load()'... '本程序的功能是相当于一个词典。在输入汉字之后,自动翻译成四位代码,翻译的规则就是查列表框,即将汉字用列表框对应的字符来替换。
Private Sub Form_Load() '窗体被加载时(本段程序的功能就是把记事本上的文字逐行读入到列表框)
List1.Clear '列表框1被清空
Open App.Path & "\代码.txt" For Input As #1 '打开当前运行目录下的记事本,准备读取数据
Do Until EOF(1)
Line Input #1, sj '读入一行记事本中的数据
List1.AddItem sj '列表框增加一行数据
Loop
Close #1
End Sub

Private Sub Command1_Click() '按钮被单击时,(本段程序的功能就是把文本框1的数据替换了)
For i = 0 To List1.ListCount - 1 '运行次数为列表框的行数
Text1.Text = Replace(Text1.Text, Left(List1.List(i), 1), Right(List1.List(i), 4) & " ") '替换规则
Next i
End Sub

求把以上vb代码翻译成易语言代码,谢谢了,不必写注释。
至于为什么要弄成易语言代码,原因我就不说了。
今天我看来半天易语言,也没看懂一个例子,挺汗的。
【"\代码.txt"放的是如下数据
命 C912
搭 C913
载 C914
起 C915
飞 C916
这个程序的功能就是实现翻译。比如我输入“载飞”,就能被翻译成“C914 C916”】
今天看了易语言,很多都不懂,也没找到理想中的实例,实在弄不出来这个东西,求帮忙,把vb代码翻译成易语言代码,十分感谢,到时我会再加分的。
展开
 我来答
龙528436
2011-06-17 · 超过34用户采纳过TA的回答
知道答主
回答量:78
采纳率:0%
帮助的人:62.8万
展开全部
用易语言飞扬吧,挺棒的,中英文的代码,还有专门的vb代码转换工具,你去易语言官网上下载(别忘了下载key)
不过可能用起来不习惯,如果你会vb,最好是c,就顺手了
有问题再联系
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
cg329521
2011-06-17 · TA获得超过255个赞
知道小有建树答主
回答量:933
采纳率:0%
帮助的人:405万
展开全部
没接触过易语言呀 帮你顶一下
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式