home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / exds100 / spack / exceedf.bas < prev    next >
BASIC Source File  |  1995-09-29  |  3KB  |  38 lines
  1. Option Explicit
  2. '従来,拡張ＶＢ文字列操作関数(EXD120.LZH) DLL名はEXCEED.DLLで公開されていたものを同梱しています。
  3. '拡張ファイル操作関数という別物を公開する予定でしたが、煩雑になるため、スーパーパックという名称で
  4. '集約公開することになりました、その際ＤＬＬ名称も　ＥＸＣＥＥＤＦ．ＤＬＬ　に変更されましたので、
  5. 'ＶＢ内に定義するときには旧名称と間違えないようにして下さい。
  6. '
  7.  
  8.  
  9.  
  10. Declare Function StandardDev% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal anal As String)
  11. Declare Function Purge% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal File2 As String, ByVal Record As Integer)
  12. Declare Function RenameFiles% Lib "EXCEEDF.DLL" (ByVal OldFile As String, ByVal NewFile As String)
  13. Declare Function AddFiles% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal File2 As String, ByVal OFILE As String, ByVal offset As Integer, ByVal DELMS As Integer)
  14. Declare Function CutColFiles% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal OFILE As String, ByVal clums As Integer, ByVal DELMS As Integer)
  15. Declare Function Dextract% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal OFILE As String, ByVal culums As Integer, ByVal DELMS As Integer)
  16. Declare Function UnixDos% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal OFILE As String, ByVal mode As Integer)
  17. Declare Function ScopeFiles% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal OFILE As String, ByVal Srecord As Integer, ByVal Scolums As Integer, ByVal Erecord As Integer, ByVal Ecolums As Integer, ByVal Options As Integer)
  18. Declare Function EditFiles% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal OFILE As String, ByVal expr1 As String, ByVal expr2 As String)
  19. Declare Function SelectFiles% Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal Recno As Long, ByVal buffer As String)
  20. Declare Function QuoteFiles& Lib "EXCEEDF.DLL" (ByVal File1 As String, ByVal File2 As String, ByVal expr As String, ByVal delm As Integer, ByVal opt As Integer, ByVal rew As Integer)
  21.  
  22. '文字列操作 Ver 1.2  最終版  ：以前拡張ＶＢ文字列操作関数で提供されていた部分と同じです。
  23. Declare Function after% Lib "EXCEEDF.DLL" (ByVal Inbuff As String, ByVal Keys As String, ByVal Obuff As String)
  24. Declare Function before% Lib "EXCEEDF.DLL" (ByVal Inbuff As String, ByVal Keys As String, ByVal Obuff As String)
  25. Declare Function entryname% Lib "EXCEEDF.DLL" (ByVal Ipass As String, ByVal Obuff As String, ByVal mode As Integer)
  26. Declare Function EXtract% Lib "EXCEEDF.DLL" (ByVal mode As Integer, ByVal Numb As Integer, ByVal Ibuff As String, ByVal Obuff As String)
  27. 'Ver 2.XX 追加機能　　
  28. Declare Function EUC2SJ% Lib "EXCEEDF.DLL" (ByVal Ibuff As String, ByVal Obuff As String)
  29. Declare Function SJ2EUC% Lib "EXCEEDF.DLL" (ByVal Ibuff As String, ByVal Obuff As String)
  30. Declare Function EBC2ASC% Lib "EXCEEDF.DLL" (ByVal Ibuff As String, ByVal Obuff As String)
  31. Declare Function ASC2ebc% Lib "EXCEEDF.DLL" (ByVal Ibuff As String, ByVal Obuff As String)
  32. Declare Function Types% Lib "EXCEEDF.DLL" (ByVal Ibuff As String)
  33. Declare Function Exists% Lib "EXCEEDF.DLL" (ByVal Names As String, ByVal mode As Integer)
  34. Declare Function Statistic% Lib "EXCEEDF.DLL" (ByVal inDat As String, ByVal dammy As String, ByVal outDat As String, ByVal delm As Integer, ByVal mode As Integer)
  35.  
  36. Global Const version = "拡張ＶＢファイル操作 "
  37.  
  38.