两个函数

原创 2007年10月16日 00:53:00
文件名SourceDB.ini文件
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
'仅仅针对是非值
'Y:yes,N:no,E:error
Public Function GetIniTF(ByVal In_Key As String) As Boolean
On Error GoTo GetIniTFErr
GetIniTF = True
Dim GetStr As String
GetStr = VBA.String(128, 0)
GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
If GetStr = "1" Then
   GetIniTF = True
   GetStr = ""
Else
   GoTo GetIniTFErr
End If
Exit Function
GetIniTFErr:
   Err.Clear
   GetIniTF = False
   GetStr = ""
End Function

Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
On Error GoTo WriteIniTFErr
WriteIniTF = True
If In_Data = True Then
 WritePrivateProfileString "Setting", In_Key, "1", App.Path & "/SourceDB.ini"
Else
 WritePrivateProfileString "Setting", In_Key, "0", App.Path & "/SourceDB.ini"
End If
Exit Function
WriteIniTFErr:
   Err.Clear
   WriteIniTF = False
End Function


'以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
'针对字符串值
'空值表示出错
Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String
On Error GoTo GetIniStrErr
If VBA.Trim(In_Key) = "" Then
   GoTo GetIniStrErr
End If
Dim GetStr As String
GetStr = VBA.String(128, 0)
 GetPrivateProfileString AppName, In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
  GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
If GetStr = "" Then
   GoTo GetIniStrErr
Else
   GetIniStr = GetStr
   GetStr = ""
End If
Exit Function
GetIniStrErr:
   Err.Clear
   GetIniStr = ""
   GetStr = ""
End Function

Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String) As Boolean
On Error GoTo WriteIniStrErr
WriteIniStr = True
If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then
   GoTo WriteIniStrErr
Else
 WritePrivateProfileString AppName, In_Key, In_Data, App.Path & "/SourceDB.ini"
End If
Exit Function
WriteIniStrErr:
   Err.Clear
   WriteIniStr = False
End Function

 

两个字符串处理函数[两个字符串处理函数]-精品源代码

  • 2009年10月11日 03:14
  • 49KB
  • 下载

指向函数的指针运用

  • 2014年09月02日 15:14
  • 189KB
  • 下载

编写两个函数,分别求两个整数的最大公约数和最小公倍数

问题描述: 编写两个函数,分别求两个整数的最大公约数和最小公倍数,用主函数调用这两个函数,并输出结果。 算法分析: 两个整数的最小公倍数等于他们的乘积除以他们的最大公约数。随意关键是编写最大...
  • Rage_
  • Rage_
  • 2016-04-11 16:18:08
  • 16248

Math:求两个函数结果中的最大值

max(f(x),g(x))=f(x)+g(x)+|f(x)−g(x)|2" role="presentation">max(f(x),g(x))=f(x)+g(x)+|f(x)−g(x...
  • hengbao4
  • hengbao4
  • 2018-01-30 10:21:38
  • 93

openGL和glut两个库文件的API函数说明文档

  • 2010年08月31日 11:51
  • 643KB
  • 下载

多目标粒子群算法优化

  • 2018年03月27日 20:55
  • 13KB
  • 下载

MATLAB中产生高斯白噪声的两个函数

  • 2010年11月17日 09:37
  • 135KB
  • 下载

【转】onclick事件 能不能同时调用两个js函数

转载地址:http://bbs.csdn.net/topics/320115937 onclick事件 能不能同时调用两个js函数 可以。 ***.onclick=function(){fu...
  • u010782160
  • u010782160
  • 2014-12-04 20:04:12
  • 2360

(c++)写两个函数,分别求两个整数的最大公约数和最小公倍数,用主函数调用这两个函数,并输出结果两个整数由键盘输入。

#include using namespace std; int max(int a,int b) { if(a { int c=a;a=b;b=c; } int d; do {...
  • sunxuelei9543
  • sunxuelei9543
  • 2017-01-19 16:44:47
  • 6027

两个随机变量做运算的函数分布

1.线性 X+Y=Z   或者:Z=X-Y 2.Z=X/Y  或者:Z=XY F(Z)=?
  • H002399
  • H002399
  • 2015-06-28 07:57:09
  • 542
收藏助手
不良信息举报
您举报文章:两个函数
举报原因:
原因补充:

(最多只允许输入30个字)