VB小程序 求助

416关注639浏览

如图TXT文件,对行操作,留下汉字行,其余删掉
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
End Sub
Private Sub Command1_Click()
CommonDialog2.ShowOpen
Open CommonDialog1.FileName For Inp

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Kat王淑仪

    20人对此回答表示赞同

    If asc(Left(aaa, 1)) < 0
    不是ask
    展开
    20
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 林小姐也是lyn

    6人对此回答表示赞同

    你去搜索一下"VB正则表达 手册"之类,
    用该脚本的方法可以解决你的问题.
    展开
    6
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 沦陷的痛

    3人对此回答表示赞同

    If Len(aaa) > 0 And IsNumeric(aaa) = False And InStr(aaa, "-->") = 0 Then Write #2, aaa
    Len(aaa) > 0 去掉空白行
    IsNumeric(aaa) = False 如果是数字,也去掉
    InStr(aaa, "-->") = 0 包含-->也去掉~
    展开
    3
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 难以启齿

    1人对此回答表示赞同

    要求:编写一个函数,判断一个数是否为水仙花数,将所有水仙花数显示在组合框中,将所有三位的素数显示在列表框中,整个程序通过右击鼠标显示弹出式菜单指令,
    展开
    1
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部