碰到不规则的文本文件,不知如何导入到EXCELL中,求救世主的出现

Question

         资金状况:                                                                                                              
         --------------------------------------------------------------------------------------------------------------          
                                                                                                                                 
                     期初余额:       8,556,322.42                     期末余额:       8,556,322.42                               
                -------------------------------------            -------------------------------------                           
                     结转资金:               0.00  +                  冻结资金:               0.00  -                            
                     实物交割:               0.00  +                  抵押资金:               0.00  +                            
                                                                                                                                 
                     资金存取:               0.00  +                  浮动盈亏:       5,369,450.00  +                            
                                                                 -------------------------------------                           
                     平仓盈亏:               0.00  +                      权益:      13,925,772.42                               
                       增值税:               0.00  +                持仓保证金:       8,366,415.00  -                            
                                                                 -------------------------------------                           
                     交易费用:               0.00  -                  可用金额:       5,559,357.42                               
                -------------------------------------               可提取金额:         189,907.42    <= 浮动盈利没计入          
                     期末余额:       8,556,322.42                       风险率:             166.45%                           

Answer 1

比如要在EXCELL中显示期初余额和期末余额以及它们相应的值,该如何解决

Answer 2

我想这应该是一个固定宽度分隔文件。你可以：在EXCEL的工具栏（注意，是工具栏，不是文件菜单）中点击“打开”图标->选择要打开的文本文件->选择“固定宽度”->下一步->点击要分隔的位置，将出现一个竖向的分割线，将之拖动到“期初余额:”的后面->如果要多次分隔则重复上一步。

Answer 3

如果用VBA打开，则：
Sub Test()Workbooks.OpenText Filename:="D:\备份\Documents and Settings\pcf05\桌面\新建 文本文档.txt", Origin:=936, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(10, 1)), TrailingMinusNumbers:=TrueEnd Sub
OPENTEXT方法的FIELDINFO参数中ARRAY(0,1)代表从第行首开始分隔，ARRAY(4,1)代表在第四个字符后再次分隔，如此等等。

Answer 4

Private Function Replace2To1(str)
    Dim outstr
    outstr = ""
    outstr = Replace(str, Space(2), Space(1))
    If InStr(str, Space(2)) > 0 Then
        outstr = Replace2To1(outstr)
    End If
    Replace2To1 = outstr
End Function    Dim str As String
    Dim strList
    str = "                   期初余额:      8,556,322.42                    期末余额:      8,556,322.42                              "
    strList = Split(Trim(Replace2To1(str)), Space(1))
strList(0)="期初余额:"
strList(1)="8,556,322.42"
strList(2)="期末余额:"
strList(3)="8,556,322.42"不知道是不是你要的結果。

Answer 5

非常感谢你们的支持,  这几天因为迫于生计,早出晚归,没上CSDN了,都不知道这么多热心的朋友给我出点子,谢谢你们了,
有什么要求,在下也乐于帮助.

Answer 6

4楼的朋友,我就是想让计算机自已读取那数据并放到EXCELL中,如果str = "                   期初余额:      8,556,322.42                    期末余额:      8,556,322.42    
不如直接PRINT好了 
3楼的朋友, 这不是一个固定宽度分隔文件,
可能是我没说清楚
 
                      

Answer 7

那个数据本是放在文本文件中的,我现在要把它在EXCELL中显示出比如:
   A       B        C
1期初余额  期末余额  日期
2******   *******  ****

Answer 8

先复制到Excel文件中,然后选取择数据点菜单上 数据/分列 来分开.

Answer 9

Dim ex As Object
Dim wb As Object
Dim sh As Object
Dim arrline(1 To 5) As String
Dim strL(1 To 4) As String
Dim cont() As String
Dim sFile As String
'我是用你上面的文件格式写的
Private Sub Command1_Click()Set ex = CreateObject("Excel.Application")
Set wb = ex.workbooks.Add       '新建EXCEL
Set sh = wb.Sheets(1)
 Open "D:\strA.txt" For Binary As #1   '你的文件路径
   sFile = Space(LOF(1))
   Get #1, , sFile
   Close #1  cont = Split(sFile, vbCrLf)
  arrline(1) = LTrim(RTrim(cont(3))) Index = UBound(cont)
 arrline(5) = LTrim(RTrim(cont(Index)))   '去掉两边空格 strL(1) = Replace(arrline(1), "                    ", " '")
 strL(2) = Replace(strL(1), "      ", "'") cont = Split(strL(2), "'")
 arrline(1) = cont(0)      '期初余额:
 arrline(2) = cont(1)      '期初余额值
     MsgBox arrline(1)
     MsgBox arrline(2) strL(3) = Replace(arrline(5), "                      ", "'")
 strL(4) = Replace(strL(3), "      ", "'")
 
 cont = Split(strL(4), "'")
 arrline(3) = cont(0)
 arrline(4) = cont(1)  sh.cells(1, 1) = "编号"
  sh.cells(1, 2) = "A"
  sh.cells(1, 3) = " B"
  sh.cells(1, 4) = "C"
  sh.cells(2, 1) = 1
  sh.cells(2, 2) = arrline(1)
  sh.cells(2, 3) = arrline(3)
  sh.cells(2, 4) = "日期"
  sh.cells(3, 1) = 2
  sh.cells(3, 2) = arrline(2)
  sh.cells(3, 3) = arrline(4)
  
 ex.Visible = True ' wb.Close SaveChanges:=True    '关闭文件后,直接保存不提问
 ' ex.Quit
  Set ex = Nothing
  Set wb = Nothing
  Set sh = Nothing
End Sub

Answer 10

Dim ex As Object
Dim wb As Object
Dim sh As Object
Dim arrline(1 To 5) As String
Dim strL(1 To 4) As String
Dim cont() As String
Dim sFile As String
'我是用你上面的文件格式写的
Private Sub Command1_Click()Set ex = CreateObject("Excel.Application")
Set wb = ex.workbooks.Add       '新建EXCEL
Set sh = wb.Sheets(1)
 Open "D:\strA.txt" For Binary As #1   '你的文件路径
   sFile = Space(LOF(1))
   Get #1, , sFile
   Close #1  cont = Split(sFile, vbCrLf)
  arrline(1) = LTrim(RTrim(cont(3))) Index = UBound(cont)
 arrline(5) = LTrim(RTrim(cont(Index)))   '去掉两边空格 strL(1) = Replace(arrline(1), "                    ", " '")
 strL(2) = Replace(strL(1), "      ", "'") cont = Split(strL(2), "'")
 arrline(1) = cont(0)      '期初余额:
 arrline(2) = cont(1)      '期初余额值
     MsgBox arrline(1)
     MsgBox arrline(2) strL(3) = Replace(arrline(5), "                      ", "'")
 strL(4) = Replace(strL(3), "      ", "'")
 
 cont = Split(strL(4), "'")
 arrline(3) = cont(0)
 arrline(4) = cont(1)  sh.cells(1, 1) = "编号"
  sh.cells(1, 2) = "A"
  sh.cells(1, 3) = " B"
  sh.cells(1, 4) = "C"
  sh.cells(2, 1) = 1
  sh.cells(2, 2) = arrline(1)
  sh.cells(2, 3) = arrline(3)
  sh.cells(2, 4) = "日期"
  sh.cells(3, 1) = 2
  sh.cells(3, 2) = arrline(2)
  sh.cells(3, 3) = arrline(4)
  
 ex.Visible = True ' wb.Close SaveChanges:=True    '关闭文件后,直接保存不提问
 ' ex.Quit
  Set ex = Nothing
  Set wb = Nothing
  Set sh = Nothing
End Sub

Answer 11

多谢GOOSEN
多谢其它朋友们由于某种原因，
以前的编程工作丢了，
虽然还是喜欢编程的
但是现在可能要永远的离它而去，
换成干别的了
以前的电脑也被老板收去了，
没有电脑试试看了
不过，有机会我还会找台机子把你给我的代码试试，
再次感谢你1