UC知道VB写一段代码用来限定拼音的对应文字的最大个数
来源：百度知道 编辑：UC知道 时间：2024/05/25 05:27:42
a 阿啊
ai 爱矮蔼皑哀碍隘埃挨哎唉艾癌
an 安岸暗按氨鞍俺案胺
ang 昂盎肮
ao 熬翱傲敖澳奥凹袄懊
ba 八扒霸拔巴跋芭捌笆吧叭靶坝疤罢把爸
bai 白百柏摆拜稗败佰
ban 拌瓣半伴板扳办搬班般颁斑扮版绊
bang 棒蚌邦绑帮梆榜膀傍谤磅镑
bao 煲宝包爆鲍剥抱报保苞胞薄豹瀑褒雹饱堡暴
bei 贝北背焙倍杯悲碑狈备钡卑被惫辈
ben 奔本笨夯苯
beng 崩蹦迸绷泵甭
bi 碧鼻比壁彼笔闭毕蓖鄙逼币必庇敝痹弊臂毖陛毙蔽避
bian 边变遍扁便编鞭卞辫辨贬辩
biao 表膘彪标
bie 鳖别瘪憋
bin 摈滨宾濒彬斌
bing 冰饼并兵柄丙秉炳病
bo 菠拨脖卜波玻播伯驳帛泊勃铂舶钵博渤搏箔膊
bu 补哺捕不布簿步怖部埠
现在我一个form里有一个command一个textbox点击按钮出一个对话框可以输入字母比如：a然后在textbox里就会出现以a开头的所有拼音后面跟的文字这个也可以输入以ai或者ao或者bo等等，但是这个字数不大于255个
我的这个拼音文档的名字是wls.txt （上面贴的只是文档的一部分）
我编了一部分，请各位大哥帮我弄一下后面的
Private Sub Form_Load()
Dim strLine As String
Text1.Text = ""
Open App.Path + "\wls.txt" For Input As #1
While Not EOF(1)
Line Input #1, strLine
Text1.Text = Text1.Text & strLine & vbCrLf
Wend
Close #1
End Sub
这个是先把我的文档读入textbox里，然后应该是在command编
ai 爱矮蔼皑哀碍隘埃挨哎唉艾癌
an 安岸暗按氨鞍俺案胺
ang 昂盎肮
ao 熬翱傲敖澳奥凹袄懊
ba 八扒霸拔巴跋芭捌笆吧叭靶坝疤罢把爸
bai 白百柏摆拜稗败佰
ban 拌瓣半伴板扳办搬班般颁斑扮版绊
bang 棒蚌邦绑帮梆榜膀傍谤磅镑
bao 煲宝包爆鲍剥抱报保苞胞薄豹瀑褒雹饱堡暴
bei 贝北背焙倍杯悲碑狈备钡卑被惫辈
ben 奔本笨夯苯
beng 崩蹦迸绷泵甭
bi 碧鼻比壁彼笔闭毕蓖鄙逼币必庇敝痹弊臂毖陛毙蔽避
bian 边变遍扁便编鞭卞辫辨贬辩
biao 表膘彪标
bie 鳖别瘪憋
bin 摈滨宾濒彬斌
bing 冰饼并兵柄丙秉炳病
bo 菠拨脖卜波玻播伯驳帛泊勃铂舶钵博渤搏箔膊
bu 补哺捕不布簿步怖部埠
现在我一个form里有一个command一个textbox点击按钮出一个对话框可以输入字母比如：a然后在textbox里就会出现以a开头的所有拼音后面跟的文字这个也可以输入以ai或者ao或者bo等等，但是这个字数不大于255个
我的这个拼音文档的名字是wls.txt （上面贴的只是文档的一部分）
我编了一部分，请各位大哥帮我弄一下后面的
Private Sub Form_Load()
Dim strLine As String
Text1.Text = ""
Open App.Path + "\wls.txt" For Input As #1
While Not EOF(1)
Line Input #1, strLine
Text1.Text = Text1.Text & strLine & vbCrLf
Wend
Close #1
End Sub
这个是先把我的文档读入textbox里，然后应该是在command编
最简单的代码：
Private Sub Command1_Click()
Dim s As String, s1 As String
s = InputBox("l")
Text1.Text = ""
Open "c:\wls.txt" For Input As #1
While Not EOF(1)
Input #1, s1
If s = Left(s1, Len(s)) Then
If Len(Text1.Text) < 255 Then
Text1.Text = Text1.Text + s1
Else
Text1.Text = Left(Text1.Text, 255)
End If
End If
Wend
Close #1
End Sub
当然，还有许多要修饰的地方，你可以慢慢试着改，或者把详细要求提出来我帮你改！