❶ VB编的程序，要求把中文界面改成英文界面
最好的方法就是利用ini文件存储语言信息，然后软件启动的时候自动读取，然后加载到菜单和标签项里面，可以实现多语言切换
❷ VB中ini文件的遍历
'利用API函数批量读取某个节所有项目
"kernel32"Alias"GetPrivateProfileSectionA"(ByVallpAppNameAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
'对API抱装了一下,参数1.节名；2.文件名（包括路径）。返回字符串，每个项目以英文逗号分隔。
(ByVallpAppNameAsString,ByVallpFileNameAsString)AsString
IfDir(lpFileName)<>""Then
DimbufferAsString
buffer=Space(FileLen(lpFileName))
IfGetPrivateProfileSection(lpAppName,buffer,Len(buffer),lpFileName)>0Then
DimlocAsInteger
loc=InStr(buffer,Chr(0)&Chr(0))
buffer=Left(buffer,loc-1)
buffer=Replace(buffer,Chr(0),",")
getProfileSection=buffer
EndIf
EndIf
EndFunction
'这个函数用上面的函数获取ini文件中的串，把它转换为两维数组返回，如读取错误返回null
(ByValSectionAsString)AsVariant
OnErrorGoToerrHandle
Dima
a=Split(Section,",")
Dimar()AsString
ReDimar(UBound(a),1)
DimiAsInteger
Dimitems
Fori=0ToUBound(a)
items=Split(a(i),"=")
ar(i,0)=items(0)
ar(i,1)=items(1)
Next
ProfileSectionToArray=ar
ExitFunction
errHandle:
ProfileSectionToArray=Null
EndFunction
'这是测试
PrivateSubCommand1_Click()
DimkeyvaluesAsString
keyvalues=getProfileSection("舞台灯光","c:123.ini")
Dimar
ar=ProfileSectionToArray(keyvalues)
IfNotIsNull(ar)Then
DimiAsInteger
Fori=0ToUBound(ar,1)'遍历二维数组
Debug.Printar(i,0),ar(i,1)
Next
EndIf
EndSub
'一次只能读取一个节，如果要把几个节的项目合在一个数组中，可以多getProfileSection几次连接成一个字符串，然后再ProfileSectionToArray
❸ 请问如何用ASP读取ini配置文件，
不建议这么做。
假设你用scripting.filesystemobject或者adodb.stream组件来读文件内容
那么判断ip 和 name 的值是是要写很复杂的东西，而且效率也不高。
那么怎么解决这个问题呢？
建议你用xml
把system.ini改写为system.xml
如下：
<system>
<ip name=123 >192.168.0.1</ip>
</system>
通过xmldom的读数节点，就很容易实现。
'创建DOM对象
set objDom=server.CreateObject("MicroSoft.XMLDom")
'取得XML数据
objDom.load(Server.Mapth("system.xml"))
set objtofind=objdom.documentElement.SelectSingleNode("//system/ip")
'取出这个节点对象的 节点名，节点值，某个属性值，和全部的XML
nodename=objtofind.nodename
nodevalue=objtofind.text
objtofind.GetAttributeNode("name").NodeValue '属性名为name的属性值
'取出一个属性节点对象
set objattrtofind=objdom.documentElement.SelectSingleNode("//system/ip"). GetAttributeNode("name")
'取出这个节点的属性名，属性值
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.nodevalue
遍历这个集合
for each element in objnodes
response.write element.nodename
response.write element.text
next
不管你system下有多少子类，都可以读出来,你只要按xml格式写。
❹ 怎么遍历读取ini文件的所有节点
ini文件读取一般要引入win32API函数来完成，可以参考以下的函数ReadSection，结果以StringCollection的形式返回，你可以自己再做后续处理： public string FileName; //INI文件名 //声明读写INI文件的API函数 [DllImport("kernel32")]
❺ 如何用dos命令遍历文件夹目录树将 *.txt 文件重命名为 *.ini,
@echo off
set a=0
setlocal EnableDelayedExpansion
for %%n in (*.TXT) do (
ren "%%n" "!复*!.ini"
)
*号不可以当作制文件名，你新建一个文本, 复制上面的信息到文本中, 保存-关闭, 然后修改文件的后缀名为 .bat 运行即可.
注意: 这个bat文件必须跟所要改名的ini/TXT文件在同一文件夹下.
补充回答: 如果你确定两个文件夹内的文件名都一样, 那你可以先对文件进行名称排序. (鼠标右键-排列图标-名称)