| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 526 人关注过本帖
标题:求助,读出读入小程序麻烦热心朋友帮一下
只看楼主 加入收藏
LIANG5505
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2008-9-9
结帖率:66.67%
收藏
已结贴  问题点数:0 回复次数:3 
求助,读出读入小程序麻烦热心朋友帮一下
小弟出来工作三年多了,很久没有接触VB了,很多东西忘了,因为每天都做同样烦心的事(发邮件,邮箱都是电子表格里的,但是直接发的时候要在每个收件人中间加个;号,今天晚上想起来拿VB做个程序,太久没有操刀了,差点comand都不记了,想请热心的朋友帮个忙,写个小程序,应该很简单的,读入,写出,一个循环,但是太久没有接触了,都忘了。

具体是打开一个文本文件,里面比如有有很多行
111
222
333
444
...
这里字符,要把里面每行的字符改成下面的格式
111;222;333;444
然后每40个间隔一下
读完了,保存一下就可以了

窗体:添加两个按钮,一个打开文件(用CommonDialog就可以了),另外一个按钮改变文本里的内容,保存就可以了。
希望热心的朋友能帮一下(把代码在下面贴一下就可以了),不胜感激。
搜索更多相关主题的帖子: 文本文件 电子表格 收件人 朋友 
2011-07-07 02:40
chk0301
Rank: 2
等 级:论坛游民
帖 子:23
专家分:57
注 册:2011-6-23
收藏
得分:10 
每40个间隔一下指的是怎么间隔?
2011-07-07 09:19
chk0301
Rank: 2
等 级:论坛游民
帖 子:23
专家分:57
注 册:2011-6-23
收藏
得分:0 
程序代码:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim s(100) As String  '因不知道你的具体有多少,所有我用了100,自己替换掉
Dim i, j As Integer

 Dim strFileName  As String
Private Sub Command1_Click()
On Error GoTo ms:
        With Me.CommonDialog1
            .Filter = "txt文件|*.txt"
            .ShowOpen
        End With
       
        strFileName = Me.CommonDialog1.FileName
        If Len(strFileName) > 0 And Dir(strFileName) <> "" Then
          i = 1
          Open strFileName For Input As #1
          Do While Not EOF(1)
            Line Input #1, s(i)
            i = i + 1
          Loop
          Close #1
        End If
ms:
End Sub

Private Sub Command2_Click()
Dim st As String
Open strFileName For Output As #1
   For j = 1 To i
     st = st + s(j) + ";"
   Next j
Print #1, st
Close #1
End Sub
因为不知道你每40个加什么间隔,所以我就直接没给你加,你自己加上就行了。另外为了方便选择文件,用了一个CommonDialog控件,需要手动加入控件
2011-07-07 17:27
LIANG5505
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2008-9-9
收藏
得分:0 
非常感谢帮忙,谢谢
2011-07-15 12:01
快速回复:求助,读出读入小程序麻烦热心朋友帮一下
数据加载中...
 
   



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

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