| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1256 人关注过本帖
标题:如何将字符串按固定长度输出?
取消只看楼主 加入收藏
olivezhang
Rank: 1
等 级:新手上路
帖 子:223
专家分:0
注 册:2005-9-14
收藏
 问题点数:0 回复次数:1 
如何将字符串按固定长度输出?
请问,如何将字符串按固定长度输出?
比如,
图片附件: 游客没有浏览图片的权限,请 登录注册

我要把这个Excel中的单元格中的数据按固定长度输出,如:设定每个单元格中的数据长度为8,该如何做呢?
VB有这样的API吗?
搜索更多相关主题的帖子: 字符 长度 输出 
2006-10-25 17:39
olivezhang
Rank: 1
等 级:新手上路
帖 子:223
专家分:0
注 册:2005-9-14
收藏
得分:0 

没有查到这样的函数,倒是利用Len()函数实现了这样的功能。
For PathRow = 1 To MaxRow
For PathCol = FirstPathCol To FirstPathCol + ColPerPath - 1
Set CellValue = Worksheets("Sheet1").Cells(PathRow, PathCol)
If CellValue <> "" And IsNumeric(CellValue) Then
StrLen = Len(Format(CellValue))
For SpaceLen = 0 To 12 - StrLen - 1
StrSpace = StrSpace + " "
Next SpaceLen
StrContent = StrContent + StrSpace + Format(CellValue) + Chr(44)

End If
If CellValue <> "" And (Not IsNumeric(CellValue)) Then
StrLen = Len(CellValue)
For SpaceLen = 0 To 12 - StrLen - 1
StrSpace = StrSpace + " "
Next SpaceLen
StrContent = StrContent + StrSpace + CellValue + Chr(44)
End If

StrSpace = ""

Next PathCol

file.Writeline StrContent
StrContent = ""

Next PathRow

输出结果:
23f, abvd, eeee,
2323, 2323, 2323,
4623, 4623, 4623,
6923, 6923, 6923,
9223, 9223, 9223,
11523,
13823,
很整齐。
谢谢purana的关注。。。。


谷底深深行 ,峰顶漫漫步......@_@
2006-10-26 09:58
快速回复:如何将字符串按固定长度输出?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024883 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved