1.建立与读取.ini文件
2.朋友给我一套网站源码,读读写在源码中包含一个.ini格式的写源文件,打开后不知道是文件什么,请大神解释,读读写代码如下
建立与读取.ini文件
虽然进入win之后,写源ecstore2.0源码一般读写ini文件被读写Registry所取代,文件桃源码头直播但我们还是读读写可以透过
win的传统方式读写ini文件,以存程式目前的写源相关设定,而於下一次程式执行时再
读回来。文件目前建议使用GetSetting SaveSetting的读读写方式存於Registry中,不用目前
的写源方式。 储存程式的文件设定
'请於form中放3个TextBox,一个CommandBox
Private Declare Function GetPrivateProfileString Lib "kernel" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String,读读写奇迹z助手源码 _
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 "kernel" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Private Sub Command1_Click()
Dim success As Long
success = WritePrivateProfileString("MyApp", "text1", Text1.Text, "c:\aa.ini")
'叁数一 Section Name
'叁数二 於.ini中的项目
'叁数三 项目的内容
'叁数四 .ini文件的名称
success = WritePrivateProfileString("MyApp", "text2", Text2.Text, "c:\aa.ini")
success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, "c:\aa.ini")
End Sub
Private Sub Form_load()
Dim ret As Long
Dim buff As String
buff = String(, 0)
ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, , "c:\aa.ini")
'若.ini MyApp中无text1,则采用叁数三的写源值
Text1.Text = buff
buff = String(, 0)
ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, , "c:\aa.ini")
Text2.Text = buff
buff = String(, 0)
ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, , "c:\aa.ini")
Text3.Text = buff
End Sub
操作INI文件可以参考本站源码:/Software.asp?id=
朋友给我一套网站源码,在源码中包含一个.ini格式的文件文件,打开后不知道是什么,请大神解释,源码后门发现不了代码如下
ini一般是配置文件,看代码内容,是配置伪静态。
另外RewriteRule里的测速的网页源码内容是一些重写规则,像网址后边是 /id?4这样的,可能不好识别,配置伪静态,重写url,就可以通过/id/4.html 来访问到 /id?4
有说法过去的搜索引擎不够智能,这种动态网页不易被收录。所以很多网站需要配置伪静态,以便更好的seo(没有考证过是否这样)
但现在的搜索引擎,比如百度等等,对这种动态网站识别完全没问题,该收录还是收录。
所以,不用刻意在意这个文件是干嘛的,网站源码正常使用即可。