vb讀寫iniword版-wenkub
2022-09-15 16:27:57 本頁面
【正文】 E－Mail: goj2000許家國 39。 39。******************************************************Dim lngSuccess As LonglngSuccess = WritePrivateProfileString(strSectionName, strTopic, strContent, strINIfilename)If lngSuccess = 0 Then DisplayMessage 寫入INI文件失?。nd IfExit SubEnd SubPublic Function MyReadINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strINIfilename As String) As StringDim lngRet As LongDim buff As Stringbuff = String(255, 0)lngRet = GetPrivateProfileString(strSectionName, strTopic, , buff, 256, strINIfilename)If lngRet 0 Then MyReadINI = buffEnd IfExit FunctionEnd Function參數(shù)： [strSectionName] 要在其中寫入新字符串的[小節(jié)名]
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1