- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-10 06:54 ½s¿è
¦^´_ 1# metrostar
ª½±µ¿ï¾Ü¤å¦rÀÉ×¥¿- Sub output()
- Dim Fos As String, Fs As Object, i As Integer, S As Variant
- With Application.FileDialog(msoFileDialogOpen) '¶}±ÒÂÂÀÉ®×
- .InitialFileName = "*.txt" '¿ï¾Ü¤å¦rÀÉ
- If .Show = 0 Then Exit Sub
- Fos = .SelectedItems(1)
- End With
- Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(Fos, 1)
- 'OpenTextFile:¶}±Ò¤@Ó«ü©wªºÀɮרöǦ^¤@Ó TextStream ª«¥ó¡A¸Óª«¥ó¥i¥Î©ó¹ïÀɮ׶i¦æŪ¨ú©Îªþ¥[¡C
- S = Replace(Replace(Fs.READALL, " ", ""), "-", "0")
- Fs.Close
- Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(Fos, True)
- 'CreateTextFile :«Ø¥ß¤@Ó«ü©wªºÀɦW¨Ã¥B¶Ç¦^¤@ӥΩó¸ÓÀÉ®×Ū¼gªº TextStream ª«¥ó¡C
- Fs.Write S
- Fs.Close
- End Sub
½Æ»s¥N½X |
|