| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1698 人关注过本帖
标题:没有实现换行字数的统计,只能在本行计算字数,加了换行的字数,就不行了
只看楼主 加入收藏
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 
我的意思就是说在:Or str = "“如何填写就可以是回车键字符所代表的代码?

我的意思就是说在我那现成的代码里直接修改添加回车键所代表字符数的代码!
2006-05-16 17:20
天际流星
Rank: 1
等 级:新手上路
帖 子:121
专家分:0
注 册:2005-3-18
收藏
得分:0 

顶一下

[此贴子已经被作者于2006-5-17 13:13:56编辑过]


2006-05-17 13:13
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

现在代码改为如下:

Private Sub Text1_Change()
Dim str As String
Dim T As Integer
Dim tx As Integer
Dim i As Integer
Dim n As Single
T = 0

For tx = 0 To Len(Text1.Text)
Text1.SelStart = tx
Text1.SelLength = 1
str = Text1.SelText
If str = "," Or str = "。" Or str = "!" Or str = "《" Or str = "》" Or str = "“" Or str = "”" Or str = ":" Or str = "(" Or str = ")" Or str = "(" Or str = ")" Or str = ";" Or str = "、" Or str = "?" Or str = "," Or str = "." Or str = "0" Or str = "1" Or str = "2" Or str = "3" Or str = "4" Or str = "5" Or str = "6" Or str = "7" Or str = "8" Or str = "9" Then T = T + 1
Next tx
T = T / 2


For i = 1 To Len(Replace(Text1.Text, " ", "")) - T
If Asc(Mid(Text1.Text, i, 1)) = 13 Then
n = n
Else
n = n + 1
End If
Next i
Text11.Text = n

Command2.SetFocus

End Sub

两种结果:
一、以粘贴文本文字形式显示在TEXT里的结果为,
(:“按照中共安徽省委办公厅、安徽省人民政府办公厅《关于开展县域经济考核评价,促进县域经济发展的实施意”共46。5个字符)

若是在一行里,就是46(实际为46。5),若分成两行就是47,分成三行就是48分成四行就是59,自动加1。。。。)于TEXT里,统计为为回车键字数算1,每按次回车键,就自动加1而不是加2了!

二、以在VB里打开\11.TXT形式并显示到TEXT里的结果为48(只有一行字的话一行,)
分成两行字的话就是49;分成三行字的话就是50;....以此类推.

2006-05-17 15:39
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 
xinfresh帮我再看看!
2006-05-17 22:21
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 

说来说去就是不想让回车在里面充数是吧?
设s=Text1.Text
加一句:
s = Replace(s, vbCrLf, vbNullString)
这样回车就再不会充数了,你换n行也是结果也是一样
其它没问题了吧?


E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-18 01:11
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

你这好象解决了回车问题!

但空格问题呢?

令s = Replace(Text1.Text, " ", "")

Replace(s, vbCrLf, vbNullString)

这样行么?

2006-05-18 17:51
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
就是说空格、回车都不算是吧?那就对了
s=Replace(Text1.Text," ",vbNullString)
s=Replace(s,vbCrLf,vbNullString)
vbNullString与""的运算上是相等的,就是说""=vbNullString的返回值是True

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-19 11:38
快速回复:没有实现换行字数的统计,只能在本行计算字数,加了换行的字数,就不行 ...
数据加载中...
 
   



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

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