房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • VB去掉空格和字符只计算文字个数

    Private Sub Command1_Click()Dim s As String, s1 As Strings = InputBox("l")Text1.Text = ""Open App.Path + "\wls.txt" For Input As #1While Not EOF(1)Input #1, s1If s = Left(s1, Len(s)) ThenIf Len(Text1.Text) < 255 ThenText1.Text = Text1.Text + s1ElseText1.Text = Left(Text1.Text, 255)End IfEnd IfWendClose #1End Sub现在这个程序是要计算文字不大于255但是运行后把字符就是拼音和空格也一起计算进去了，怎么去掉这些只计算文字的个数不大于255啊

    提问者：zhfsgpp

    发布于2011-02-12

共1个回答
  • dlij_0 丨Lv 3
    再取完字符后加个判断，如果是空格或26个字母都跳过去
    +1 2011-02-12 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。