双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

读中文TXT文件?

2007-06-05 11:32:54 319 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lelexy 墨衍会员 · AI 创作全网分发关注 + 加入社区

Python实例004：输入某年某月某日，判断日期的正确合理性以及输出该天是该年的第几天 Python实例004：输入某年某月某日，判断日期的正确合理性以及输出该天是该年的第几天。运用if判断语句、while循环语句、算术运算符、比较（关系）运算符、赋值运算符、逻辑运算符、成员运算符、运算符优先级。。 #!/usr/bin/env python3 # -*- coding:utf-8 -*- flag = True while flag : Date = input('请输... 阅读详情

VB怎么去读一个TXT文件中的中文字条符串?
Line Input #2, InputD
CTitle = Split(InputD, ":")
CTitleTemp = StrConv(CTitle(1), vbUnicode)
用StrConv函数转换了,但还是乱码,请高手指教啊,多谢

...全文

【Python】输入某年某月某日，判断这一天是这一年的第几天？ 1.题目：输入某年某月某日，判断这一天是这一年的第几天？ 2.思路：由于一年的天数需要根据二月份的天数（28/29）来确定，而二月份的天数需要根据该年是否为闰年（平年28天/闰年29天）来确定。因此，先对年份进行是否是闰年的判断，确定二月份的天数，再根据月份计算前几个月的总天数Days,最后将Days与输入的Day相加得到第几天。阅读详情

lelexy

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

VBAdvisor 2007-06-05

打赏
举报

中国最佳原创：[VB6]支持UTF文本文件访问的模块
http://blog.csdn.net/zyl910/archive/2006/05/30/762693.aspx

转贴：good format at:
http://chenoe.com/blog/article.asp?id=2030

zdingyun 2007-06-05

打赏
举报

WINXP的记事本保存文件时缺省是按UTF-8格式保存的。可用WINXP记事本打开后另存为ANSI格式保存，再用VB打开就不是乱码了。

嗷嗷叫的老马 2007-06-05

打赏
举报

cike_1111() ???

好熟啊......我是马大哈.....

嗷嗷叫的老马 2007-06-05

打赏
举报

顶1楼.

那的确是个好代码.

我一般自己用时,是使用二进制来读.如下:

dim tmpStr as string

open "xx.txt" for binary as #1
tmpstr=space(eof(1))
get 1,,tmpstr
close #1

这样,tmpstr里面就是文件的内容了.

使用split可以根据换行符拆分一下.

lelexy 2007-06-05

打赏
举报

是TXT文件中的中文字符串,读出来放到变量就成乱码了

cike_1111 2007-06-05

打赏
举报

文件中的中文字条符串?？？
没能理解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

✦双11狂欢大促✦

读中文TXT文件?

相关推荐

双11狂欢大促