form1.frm

能将从linux工作站用FTP传出来的文件unix格式转为dos格式

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "end"
      Height          =   495
      Left            =   3240
      TabIndex        =   1
      Top             =   1560
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "go"
      Height          =   495
      Left            =   3240
      TabIndex        =   0
      Top             =   600
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Open "e:\a.cur" For Input As #1
  Open "e:\aa.cur" For Output As #2
  Do While Not EOF(1)
    Line Input #1, tr
    trr = ""
'    If Len(tr) > 5000 Then
    temp = ""
    Do While Len(tr) > 0
      a = Left(tr, 1)
     ' Debug.Print Asc(a)
      temp = "":
      Do While Len(tr) > 0
        a = Left(tr, 1)
        If Asc(a) = 9 Or Asc(a) = 32 Then Exit Do
        If Asc(a) = 10 Then Print #2, trr: trr = ""
        tr = Right(tr, Len(tr) - 1)
        
        temp = temp + a
      Loop
      
      tr = Trim(tr)
      trr = trr + Form(temp)
      
'        Debug.Print , temp
     
    Loop
    Print #2, trr
    
    
'    Else:
'      temp = ""
'      Do While Len(tr) > 0
'        a = Left(tr, 1)
'        If Asc(a) = 32 Then
'          a = " "
'          temp = temp + a
'        Else: temp = temp + a
'        End If
'        tr = Right(tr, Len(tr) - 1)
'      Loop
'      Print #2, temp
'    End If
  Loop
  MsgBox ("运行完毕")
End Sub
Function Form(tt)
  For i = Len(tt) To 9
    tt = tt + " "
  Next i
  Form = tt
End Function

Private Sub Command2_Click()
  End
End Sub