home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
fwindows
/
archive
/
exds100.lzh
/
SPACK.LZH
/
EXCEEDF0.FRM
< prev
next >
Wrap
Text File
|
1995-09-30
|
13KB
|
415 lines
VERSION 2.00
Begin Form FileMain
BackColor = &H00FF0000&
BorderStyle = 3 '固定(2重線)
Caption = "ファイル操作 "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 7530
Icon = EXCEEDF0.FRX:0000
Left = 1020
LinkTopic = "Form2"
Picture = EXCEEDF0.FRX:0302
ScaleHeight = 7080
ScaleWidth = 9030
Top = 1125
Width = 9150
Begin CommandButton CMD
Caption = "テキストファイルの任意列にクォーテションを付与"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 9
Left = 2610
TabIndex = 20
Top = 5640
Width = 5685
End
Begin CommandButton CMD
Caption = "可変長テキストファイルから指定レコードの読込"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 8
Left = 2610
TabIndex = 18
Top = 5100
Width = 5685
End
Begin CommandButton Command1
Caption = "Quit"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Left = 6780
TabIndex = 17
Top = 6240
Width = 1485
End
Begin CommandButton CMD
Caption = "テキストファイル内の指定文字列の置換等"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 7
Left = 2610
TabIndex = 15
Top = 4560
Width = 5685
End
Begin CommandButton CMD
Caption = "テキストファイルをBOX範囲でクリップ"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 6
Left = 2610
TabIndex = 13
Top = 4020
Width = 5685
End
Begin CommandButton CMD
Caption = "EUCを含んだunixファイル<->dosファイル変換"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 5
Left = 2610
TabIndex = 11
Top = 3480
Width = 5685
End
Begin CommandButton CMD
Caption = "テキストファイルから列のデータをクリップ"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 4
Left = 2610
TabIndex = 9
Top = 2940
Width = 5685
End
Begin CommandButton CMD
Caption = "テキストファイルから指定列データを削除"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 3
Left = 2610
TabIndex = 7
Top = 2400
Width = 5685
End
Begin CommandButton CMD
Caption = "可変長テキストファイルの指定レコード削除"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 2
Left = 2610
TabIndex = 5
Top = 1860
Width = 5685
End
Begin CommandButton CMD
Caption = "ファイル名の変更(上書き)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 1
Left = 2610
TabIndex = 3
Top = 1320
Width = 5685
End
Begin CommandButton CMD
Caption = "ファイルの縦方向の結合"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 0
Left = 2610
TabIndex = 0
Top = 780
Width = 5685
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "QuoteFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 9
Left = 660
TabIndex = 21
Top = 5640
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "SelectFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 8
Left = 660
TabIndex = 19
Top = 5100
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "EditFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 7
Left = 660
TabIndex = 16
Top = 4560
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "ScopeFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 6
Left = 660
TabIndex = 14
Top = 4020
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "Unixdos"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 5
Left = 660
TabIndex = 12
Top = 3480
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "Dextracts"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 4
Left = 660
TabIndex = 10
Top = 2940
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "CutColFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 3
Left = 660
TabIndex = 8
Top = 2400
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "Purge"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 2
Left = 660
TabIndex = 6
Top = 1860
Width = 1905
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "RenameFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 1
Left = 660
TabIndex = 4
Top = 1320
Width = 1905
End
Begin Label Label2
BackColor = &H0000FFFF&
BackStyle = 0 '透明
Caption = "関数名 動作実験プログラム"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 10.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H0000FFFF&
Height = 255
Left = 720
TabIndex = 2
Top = 510
Width = 4215
End
Begin Label Label1
Alignment = 2 '中央揃え
BackColor = &H00FFFF00&
BorderStyle = 1 '実線
Caption = "AddFiles"
FontBold = 0 'False
FontItalic = -1 'True
FontName = "MS ゴシック"
FontSize = 15
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 0
Left = 660
TabIndex = 1
Top = 780
Width = 1905
End
End
Option Explicit
Sub CMD_Click (index As Integer)
CMD(0).Tag = index
Select Case index
Case 0 'AddFiles
addf.Show
Case 1 'RenameFiles
Rnam.Show
Case 2 'InsertFiles
Purg.Show
Case 3 'CutColFiles
cutc.Show
Case 4 'Dextracts
dext.Show
Case 5 'Unixdos
unix.Show
Case 6 'ScopeFiles
scop.Show
Case 7 'EditFiles
edits.Show
Case 8 'SelectFiles
Sele.Show
Case 9 'QuoteFiles
Quot.Show
End Select
End Sub
Sub Command1_Click ()
Unload Me
End Sub