小妹求救！打开文本文件~~

[andy_514]

小妹刚学VB不久，遇到一个作业，要实现一个这样的功能：
调用windows对话框，选择并打开一个文本文件，然后读取到控件text1 ,然后做一些处理，最后将处理结果导出，调用保存对话框，保存为另一个文件，
可是现在就是不知道打开和读取，并且保存~~~
求各位大哥帮一下忙呀。。。

[yimins]

我是来围观老马的～～～

[andy_514]

名字可能是二、三、四个字，一个字占两位；
身份证号是15或者18位，有可能带x,每个数字或者字母占一位。

[Quote=引用 28 楼 jhone99 的回复:]
如果空格补在中间应该把规则说一下，名字占多少位，数字占多少位
[/Quote]

[andy_514]

咋没有人回了嘛~~

[myy168]

[Quote=引用 5 楼 yin138 的回复:]
给一个简单的示例，修改部分，你自己弄吧。需要添加CommonDialog控件，两个command控件，一个text控件，并设置multiline=true

VB code
Option Explicit

Private Sub cmdOpen_Click()
On Error GoTo ErrHandler
With CommonDialog1
……
[/Quote]
自己修改就行

[fyl1207]

学习收藏了。

[liguicd]

帮顶.......

[嗷嗷叫的老马]

[Quote=引用 33 楼 windfeel2008 的回复:]
同一个帖子，楼主的性别造成的关注程度相差很大。。。。
[/Quote]

[嗷嗷叫的老马]

[Quote=引用 25 楼 zhuhongge 的回复:]
老马也路过了？
[/Quote]
帮不上忙当然要路过

[ylmedia]

[Quote=引用 39 楼 myjian 的回复:]
引用 33 楼 windfeel2008 的回复:
同一个帖子，楼主的性别造成的关注程度相差很大。。。。
[/Quote]
即使没分...哈哈...

[ylmedia]

[Quote=引用 44 楼 songs 的回复:]
我的妈呀！
还是转行的好啊...
[/Quote]
转行做女的.....

[chinaboyzyq]

看妞写程序……

[lacasadeco]

'旧獺
Private Sub tbrImport_Click()
Dim inputData As String
On Error GoTo ErrHandler
mdfMain.CommonDialog1.CancelError = True
mdfMain.CommonDialog1.Flags = cdlOFNHideReadOnly
mdfMain.CommonDialog1.Filter = "文本(*.txt)|*.txt"
mdfMain.CommonDialog1.FilterIndex = 2
mdfMain.CommonDialog1.ShowOpen
Open mdfMain.CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, inputData
‘可以自己設定處理函數
Call txtImportSql(inputData)
Loop
Close #1
Exit Sub
ErrHandler:
If Err.Number <> 32755 Then
MsgBox "计沮旧ア毖", vbCritical, "牡"
End If
End Sub

[songs]

我的妈呀！
还是转行的好啊...

[舉杯邀明月]

[Quote=引用 27 楼 jhone99 的回复:]

………………

strTemp=strTemp & space(48-len(strTemp))
[/Quote]
按照楼主的需求，不能这么简单地进行处理。
汉字个数不确定，这样是对不齐的。


楼主参考下面的代码：

Private Sub Command1_Click()
   Dim strFile$, strTemp$, strSave$, i&, k&

   strFile = "x:\temp\test.txt"
' test.txt 的内容如下：
'张小四 369495190011220033
'王小二 6625258603011211
'王五 462425190011220033
'王五王五 9613258903011211
'李小六 76272519101122003x

   '读取文件内容并格式化
   Open strFile For Input As #1
   strSave = ""
   While Not EOF(1)
      Line Input #1, strTemp
      k = InStr(1, strTemp, " ")
      If (k > 0) Then
         i = Len(strTemp)
         strSave = strSave & Left$(strTemp, k - 1) & Space$ _
                  (49 - k - i) & Mid$(strTemp, k) & vbCrLf
      End If
   Wend
   Close
   Text1 = strSave
'格式化后的内容如下：
'张小四                        369495190011220033
'王小二                          6625258603011211
'王五                          462425190011220033
'王五王五                        9613258903011211
'李小六                        76272519101122003x

   '输出格式化后的内容
   Open strFile For Output As #1
   Print #1, Text1
   Close
End Sub

[舉杯邀明月]

注意：
　　文档的内容行首是没有单引号的。

[LittlePig]

[Quote=引用 33 楼 windfeel2008 的回复:]

同一个帖子，楼主的性别造成的关注程度相差很大。。。。
[/Quote]
呃……

[sundy_2009]

这年头，哎，女娃娃吃香啊

[舉杯邀明月]

[Quote=引用 42 楼 ylmedia 的回复:]
.........

即使没分...哈哈...
[/Quote]

技术区的贴子，蛋贴一律无视…………

[andy_514]

将text1中的内容另存为另一个文本文件又不会了，嘻，人比较笨啦，，上面写得好像不对，，呀呀，，这两天都快把这帖子忘了，，各位哥哥还会回复不？？~~~

[andy_514]

问题基本搞定了，，谢谢各位哥哥。。^_^