home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
fwindows
/
archive
/
exds100.lzh
/
SPACK.LZH
/
EXCEEDV9.FRM
< prev
next >
Wrap
Text File
|
1995-09-30
|
18KB
|
521 lines
VERSION 2.00
Begin Form Quot
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 5805
Icon = EXCEEDV9.FRX:0000
Left = 1350
LinkTopic = "Form2"
ScaleHeight = 5355
ScaleWidth = 7065
Top = 105
Width = 7185
Begin TextBox Text2
BackColor = &H0000FFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 1
Left = 1920
TabIndex = 21
Text = "##C#"
Top = 1290
Width = 3705
End
Begin CheckBox CHK
BackColor = &H00C0C0C0&
Caption = "上書きモード"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 4050
TabIndex = 20
Top = 2580
Width = 2205
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "データ区切り"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1365
Left = 450
TabIndex = 16
Top = 1920
Width = 2985
Begin OptionButton OPT
BackColor = &H00C0C0C0&
Caption = "カンマ"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 1
Left = 1110
TabIndex = 18
Top = 480
Value = -1 'True
Width = 1455
End
Begin OptionButton OPT
BackColor = &H00C0C0C0&
Caption = "ブランク"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 2
Left = 1110
TabIndex = 17
Top = 810
Width = 1455
End
Begin Label Label2
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "デリミタ"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 4
Left = 120
TabIndex = 19
Top = 570
Width = 825
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "クォテーション"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 795
Left = 450
TabIndex = 13
Top = 3390
Width = 2955
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = """ """
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 1680
TabIndex = 15
Top = 360
Width = 1005
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "' '"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 0
Left = 240
TabIndex = 14
Top = 360
Value = -1 'True
Width = 1275
End
End
Begin CommandButton command1
Caption = "解説"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 525
Index = 6
Left = 3570
TabIndex = 12
Top = 4590
Width = 1035
End
Begin CommandButton command1
Caption = "制限"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 525
Index = 5
Left = 2580
TabIndex = 10
Top = 4590
Width = 1005
End
Begin CommandButton command1
Caption = "閲覧"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 465
Index = 4
Left = 5700
TabIndex = 9
Top = 720
Width = 855
End
Begin CommandButton command1
Caption = "閲覧"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 465
Index = 2
Left = 5700
TabIndex = 8
Top = 150
Width = 855
End
Begin TextBox Text2
BackColor = &H0000FFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 2
Left = 1920
TabIndex = 5
Text = "out.txt"
Top = 720
Width = 3705
End
Begin TextBox Text2
BackColor = &H0000FFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 0
Left = 1920
TabIndex = 3
Text = "data13.txt"
Top = 150
Width = 3705
End
Begin CommandButton command1
Caption = "終了"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 525
Index = 1
Left = 5610
TabIndex = 2
Top = 4590
Width = 975
End
Begin CommandButton command1
Caption = "実行"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 525
Index = 0
Left = 4590
TabIndex = 0
Top = 4590
Width = 1035
End
Begin Label Label2
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "0:エラー n:書込レコード数"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 3
Left = 3600
TabIndex = 23
Top = 3690
Width = 3225
End
Begin Label Label2
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "列変換指定"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 1
Left = 300
TabIndex = 22
Top = 1320
Width = 1575
End
Begin Label Label4
BackStyle = 0 '透明
BorderStyle = 1 '実線
Caption = "黄色のエリアにはファイル名などをもれなく設定して下さい"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 10.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H000000FF&
Height = 735
Left = 450
TabIndex = 11
Top = 4350
Width = 1995
End
Begin Label Label3
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "返却値"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 345
Left = 3990
TabIndex = 7
Top = 3240
Width = 855
End
Begin Label Label2
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "出力ファイル"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 2
Left = 300
TabIndex = 6
Top = 750
Width = 1575
End
Begin Label Label2
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "ファイル1"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 0
Left = 240
TabIndex = 4
Top = 240
Width = 1635
End
Begin Label Label1
BackColor = &H0000FF00&
BorderStyle = 1 '実線
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 4890
TabIndex = 1
Top = 3150
Width = 705
End
End
Option Explicit
Dim delm As Integer
Sub Command1_Click (INDEX As Integer)
Dim ret
Dim sFile As String
Dim eFile As String
Dim dam As String
Dim expr As String
Dim opts As Integer
Dim rew As Integer
Dim t
Dim ccc As String
ccc = Chr$(13)
sFile = text2(0).Text
eFile = text2(2).Text
expr = text2(1).Text
If opt(1).Value Then
delm = 1
Else
delm = 2
End If
If option1(0).Value Then
opts = 1
Else
opts = 2
End If
If chk.Value = 1 Then
rew = 1
Else
rew = 0
chk.Value = 0
End If
Select Case INDEX
Case 0 '実行
If Len(Trim$(expr)) <= 0 Then
MsgBox "列変換が指定されていません.", 48, "設定エラー"
Exit Sub
End If
If Len(Trim$(sFile)) > 0 Then
If Len(Trim$(eFile)) > 0 Then
screen.MousePointer = 11
ret = QuoteFiles&(sFile, eFile, expr, delm, opts, rew)
label1.Caption = Str$(ret)
screen.MousePointer = 1
Exit Sub
End If
End If
MsgBox "ファイル名が指定されていません.", 48, "設定エラー"
Exit Sub
Case 1 '終了
Unload Me
Case 2 '閲覧
t = Shell("notepad.exe " + sFile, 1)
Case 4 '閲覧
t = Shell("notepad.exe " + eFile, 1)
Case 6 '解説
dam = ""
dam = dam + "<機能概要> QuoteFiles" + ccc + ccc
dam = dam + " カンマまたはブランクで区切られたテキストファイルを対象として" + ccc
dam = dam + " 任意の指定列のデータにクォートを振り付けます。" + ccc
dam = dam + " (例)" + ccc
dam = dam + " 111,222,333,444" + ccc
dam = dam + " 111,222,333,444" + ccc
dam = dam + " 111,222,333,444" + ccc
dam = dam + " ##C# <- 3列目を指定する" + ccc
dam = dam + " ↓ このような文字列を第3引数に設定します" + ccc
dam = dam + " 111,222,'333',444" + ccc
dam = dam + " 111,222,'333',444" + ccc
dam = dam + " 111,222,'333',444" + ccc
dam = dam + "" + ccc
dam = dam + "<VBでの呼び出し方法>" + ccc + ccc
dam = dam + " ①定義方法はVBプログラムソースのEXCEEDF.BASを参照して下さい。" + ccc
dam = dam + " ②引数について" + ccc
dam = dam + " QuoteFiles%( P1 , P2 , P3 , P4 , P5 , P6 , P7 )" + ccc
dam = dam + " P1:対象ファイル名称" + ccc
dam = dam + " P2:出力ファイル名称(上書きモードで指定する場合でもダミーファイルを指定して下さい)" + ccc
dam = dam + " P3:変換する列の指定" + ccc
dam = dam + " # を指定すると該当する列の変換はしない。" + ccc
dam = dam + " C を指定すると該当する列を変換します。" + ccc + ccc
dam = dam + " 指定は必ず列数分指定されていなければなりません。" + ccc
dam = dam + " P4:入力データのデリミタ指定 1,カンマ 2,ブランク" + ccc
dam = dam + " P5:クォートの種類 1,シングル 2,ダブル" + ccc
dam = dam + " P6:対象ファイルを書き換えるかの指定 1:上書き 0,しない" + ccc + ccc
dam = dam + "<返却値> 0:エラー n:正常" + ccc + ccc
dam = dam + ccc
dam = dam + " メールはLDI04643へどうぞ" + ccc
dam = dam + " (C) EXCEED CORP. 1995 "
MsgBox dam, 64, version
Case 5 '制限
dam = ""
dam = dam + "<制限事項>" + ccc + ccc
dam = dam + " (1)ファイル1はレコード以上のデータを持つこと" + ccc
dam = dam + " (2)結果のレコード長が最大256を越えないこと" + ccc
dam = dam + " (3)入力、結果のレコード数が32767を越えないこと" + ccc
dam = dam + " (4)ファイル1はテキスト形式であり1レコードの区切りが改行であること" + ccc
dam = dam + " (5)ファイル1,出力ファイル名は異なっていること" + ccc + ccc
dam = dam + "以上の点を制限として考えておりますが、何か問題がありましたらメールにてご連絡下さい" + ccc
dam = dam + ccc
dam = dam + " メールはLDI04643へどうぞ" + ccc
dam = dam + " (C) EXCEED CORP. 1995 "
MsgBox dam, 64, version
End Select
End Sub
Sub Form_Load ()
delm = 0
top = 200
left = 200
End Sub
Sub OPT_Click (INDEX As Integer)
If opt(INDEX).Value Then
delm = INDEX
End If
End Sub