VB怎么去读一个TXT文件中的中文字条符串?
Line Input #2, InputD
CTitle = Split(InputD, ":")
CTitleTemp = StrConv(CTitle(1), vbUnicode)
用StrConv函数转换了,但还是乱码,请高手指教啊,多谢
Line Input #2, InputD
CTitle = Split(InputD, ":")
CTitleTemp = StrConv(CTitle(1), vbUnicode)
用StrConv函数转换了,但还是乱码,请高手指教啊,多谢
解决方案 »
- 应该是很简单的问题:如果做到点击文本框,光标移动到文本框的最后一个字符后面,而且点击处与最后字符不会被选择。
- 在VB如何保存密码
- [高难度]如何捕获IE浏览器的事件,如在IE里单击下载,选定文字等。
- 关于ListView问题,急用,在线等。
- 我想问一个关于数据库的问题???
- 用什么方法能在改变分辨率的情况下保持窗体控件不错位呢?
- 请帮忙修改代码 目前只能支持MSFlexGrid鼠标滚动
- 问一个 VB Activex Exe 多进程 阻塞的问题
- 我运行了一个SQL语句,提示:参数不足,期待是2???????是怎么回事?
- DB2与VB连接问题
- 最近想做个日历,可以实现阳历转阴历,算法是怎样的呢?
- VB 远程读取局域网内共享的TXT文本文件
http://blog.csdn.net/zyl910/archive/2006/05/30/762693.aspx转贴:good format at:
http://chenoe.com/blog/article.asp?id=2030
没能理解LZ 意思!! 读txt 不管中文英文,把其理解为字符串 处理就好了!下面请LZ 跟我做个例题: 把下列文本读入程序:
--------------------
vbblack:黑色
RGB:颜色函数
随机函数:rnd
cike技术交流群:16874787
--------------------
现在要把上面的东西读入程序中的 text1 text2 text3
其中text1读取 所有txt内容
text2 提取 ":" 符号左边的字符
text3 提取 ":"符号由边的字符
步骤1: 复制上面代码到 c:\1.txt中
步骤2:新建VBexe 把如下控件拖动到窗体中:text1 text2 text3 command1
步骤3:分别设置text1 text2 text3 为多行 [这个会设置吧!]
步骤4:复制以下代码:Private Sub Command1_Click()
Open "c:\1.txt" For Input As #1 '打开文件
'先清空
Text1 = ""
Text2 = ""
Text3 = ""
Do Until EOF(1) = True '文件没读完就继续 Line Input #1, 变量 '提取出该行 用变量存储
总内容 = 总内容 & 变量 & vbCrLf '这个变量用来存储总的内容
If InStr(变量, ":") > 0 Then ' 以某符号为标识 有这个符号就开始进行操作
符号位置 = InStr(变量, ":") '提取标识位置 用做以下计算
左边字符 = Left(变量, 符号位置 - 1) '提取标识左边的字符
右边字符 = Right(变量, Len(变量) - 符号位置) '提取右边 左边内容 = 左边内容 & 左边字符 & vbCrLf '这边变量存储左边的字符
右边内容 = 右边内容 & 右边字符 & vbCrLf '右边
End If
Loop '记得结束循环
Text1 = 总内容 '以上提取的内容分别赋到对应的控件内
Text2 = 左边内容
Text3 = 右边内容
Close #1 '记得关闭文件
End Sub
==================================================
cike技术交流群 16874787
tmpstr=space(eof(1))
get 1,,tmpstr
close #1这样,tmpstr里面就是文件的内容了.使用split可以根据换行符拆分一下.