您的位置：程序门 -> vb -> 基础类



文本文件对不齐,怎么办?


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


文本文件对不齐,怎么办?[已结贴,结贴人:wolfs]
发表于：2007-07-01 00:40:49 楼主
基金代码         基金名称                             基金净值             累计净值
  240002     宝康灵活配置                         1.6029         3.1429
  240001     宝康消费品                           1.2678         2.9255
  240003     宝康债券                             1.2060         1.3760
  213003     宝盈策略增长                         1.3331         1.3331
  213002     宝盈泛沿海                           0.9655         2.5238
  213001     宝盈鸿利收益                         1.0520         2.6920
  050008     博时第三产业                         1.0970         2.3090
  050201     博时价值贰号                         1.4820         1.9020
  050001     博时价值增长                         1.4080         3.1280
  050004     博时精选股票                         1.4558         2.8458
代码:
...
for   i   =   0   to   ubound（x)+1
mystr   =   split（x（i),   vbtab)
x（i)   =   space（1)   &   trim（mystr（1))   &   space（8   -   len（trim（mystr（1))))   &   trim（mystr（2))   &   space（18   -   len（trim（mystr（2))))   &   trim（mystr（3))   &   space（10   -   len（trim（mystr（3))))   &   trim（mystr（8))
lines   =   lines   &   x（i)   &   vbcrlf
next   i
...

我只道是中文的问题,如何解决?
发表于：2007-07-01 08:23:511楼 得分:0
不能没人知道吧
发表于：2007-07-01 08:44:032楼 得分:0
先给每个字段都确定一个最大的长度，然后再用当前字段+（最大长度-当前字段长度）的空格，应该就能对齐了。
发表于：2007-07-01 08:56:503楼 得分:0
同意楼上的意见

======================================================
红松软件     http://hongsong.huanqiuit.com/
软件论坛     http://5x51.com/hongsong/
本网站推出只要注册本站会员，就送一套正版软件活动，此
活动截至日期2007-08-15。所需要点软件在本网站中自己挑
选一个。

论坛前10位会员，赠送vip会员资格！！！
======================================================
发表于：2007-07-01 14:39:134楼 得分:20
把len函数换成lenb函数就可以了
len（ "我123 ")         =4
lenb（strconv（ "我123 ",vbfromunicode))       =5
发表于：2007-07-01 14:40:145楼 得分:0
搞错了，不好意思
呵呵

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击