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代码翻译成易语言代码,十分感谢,到时我会再加分的。 展开
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代码翻译成易语言代码,十分感谢,到时我会再加分的。 展开
2个回答
展开全部
用易语言飞扬吧,挺棒的,中英文的代码,还有专门的vb代码转换工具,你去易语言官网上下载(别忘了下载key)
不过可能用起来不习惯,如果你会vb,最好是c,就顺手了
有问题再联系
不过可能用起来不习惯,如果你会vb,最好是c,就顺手了
有问题再联系
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询