Private Sub Command1_Click()Dim s As String, s1 As Strings = InputBox("l")Text1.Text = ""Open App.Path + "\wls.txt"For Input As #1Wh... 展开
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啊 收起
