我想用vb制作一个英译汉的小程序，现在有个词汇的txt文件，想让程序能读取这个文件来实现查询功能

Posted 2023-04-11

具体思路是这样的：一共用到两个文本框控件一个输入单词，一个显示单词意思。一个按钮控件。程序能从这个txt文件中把单词意思显示出来。 只要实现这个功能就行！！！
我的邮箱 [e-mail] 如果能帮我将非常感谢。送分哦

'Option Explicit

'菜单“工程/部件”引用Microsoft windows common controls 5.0

'2个textbox，2个label

'1个Command1，可有可无

'1个ListView1，用于装载英文及对应中文解释，可以加快查询速度

Private Sub Form_Load()

On Error Resume Next

Dim str1 As String, str2

  Label1.Caption = "单词"

  Label2.Caption = "中文"

  Command1.Caption = "查找"

  With ListView1

    .View = lvwReport

    .Visible = False

    .ColumnHeaders.Add "中文"

    With .ListItems

      Open App.Path & "\\词库.txt" For Input As #1  '打开文件

      While Not EOF(1)    '逐行排查核对是否和用户输入的单词一致

        Line Input #1, str1

        str2 = Split(Trim(str1), ",") '英文单词和中文解释用半角逗号,隔开。 _

          中文解释中不要出现半角逗号，要用全角逗号。这样可以使用短语（含有空格） _

          可能的话，建议用数据库。如果是空格分开，把","改为" "

        If Len(str2(0)) Then

          .Add , str2(0), str2(1) 'str2(0)是英文，作为关键字

        End If

      Wend

      Close

    End With

  End With

  Text1.Text = ""

  Text2.Text = ""

End Sub

Private Sub Text1_Change()

On Error Resume Next

Dim li As ListItem

  Set li = ListView1.ListItems(Trim(Text1))

  If li Is Nothing Then

    Text2.Text = ""

  Else

    Text2.Text = li.Text

  End If

End Sub 

Private Sub Command1_Click()

  Call Text1_Change

End Sub

参考技术A Private Sub Command1_Click()
Dim str As String '字符
Dim word As String '英文
Dim cn As String '中文
Open App.Path & "\INI.txt" For Input As #1 '打开文件
Do Until EOF(1) '逐行排查核对是否和用户输入的单词一致
Line Input #1, str
word = Split(str, " ")(0)
cn = Split(str, " ")(1)
If Text1.Text = word Then
Text2.Text = cn '输出中文
Exit Do '退出循环
End If
Loop
Close #1 '关闭文件
End Sub

配置文件的形式是：
英文 空格 中文
比如：
apple 苹果追问

显示下标越界错误 点完调试后cn = Split(str, " ")(1)这行代码黄色标出来了

追答

你把工程文件和TXT发给我吧，我看一下，邮箱发消息给你了。
我在我的电脑上调试无错误，你看一下是不是你的配置文件出现错误。
再举例几个：
panda 熊猫
sun 太阳
………………………………
要这样的格式。

本回答被提问者采纳 参考技术B 原型：
int WINAPI icePub_dictionaryCodeTransfer2(char *strDictionaryFilename,char *strSrc,char *strCode,char *strFenge)
输入：strDictionaryFilename 字典文件名
strSrc 待处理单词
strFenge 字典里单词和code之间的分隔符字符串
输出：strCode strSrc对应信息
返回码:

Private Declare Function icePub_dictionaryCodeTransfer2 Lib "icePubDll.dll" (ByVal strDictionaryFilename As String,ByVal strSrc As String,ByVal strCode As String,ByVal strFenge As String) As Integer

Dim a2 As Integer
Dim strCode As String

strCode=Space(1024)
a2=icePub_dictionaryCodeTransfer2("汉英字典.txt","我",strCode," ")

MsgBox strCode

http://bbs.icese.net/icepubdll/icePubDLL%bd%d2%c3%d820110702.pdf

参考资料：http://zhidao.baidu.com/question/280013446.html

参考技术C 将txt文件给我，我给你做。
邮箱：[e-mail] 参考技术D 。。。。。。。。。LZ很累。TXT读写在BAIDU内最多

现在一张表格上有一个QRcode二维码，我想用VB做个小软件用扫描枪(USB)读取里面内容

条形码里面的各个数据直接填充至VB程序里面的指定文本框

请教怎样设计
可以发我邮件[e-mail]
可以加分

参考技术A 我可以做 追问

望赐教，可以加分感谢

本回答被提问者采纳