我想把列表框的项目内容 写入INI，
写进键值位置， 每项的值 用"|" 隔开
 这个有点难度 ，希望高手，懂的，大虾来帮下
   我一点头绪都没有 ，希望有代码 来给予思考 谢谢！！

列表框的项目内容～是什么东西？
键值位置～又是哪个位置～
我也是一点头绪都没有～

[ 本帖最后由 wube 于 2011-5-19 20:11 编辑 ]

我晕 大哥 我对你真的无语

假如我的INI是想这么写的
                        [X]  
                        aaa=""
                        bbb=""
我列表框是这么显示的
 List1.Text内容为 第一行 1111
                  第二行 2222
                  第三行 3333
我想把 1111,2222,3333 写进INI里面的aaa=1111|2222|3333|
这样该看得明白吧

这应该是代沟吧～
列表框是文本框还是ListBox的还是档案 = =
键值位置是指[XXX]还是[XXX]的底下的AAA = BBB
是哪个？

直接写出你要的结果就好了～说的好复杂～

wude兄 我先出去帮人整下电脑， 晚点回来 你要是测试代码可以用时 给我发下代码 谢谢咯
 

这也简单～先把你ListBox中要的值先串起来存到一个变量去～再用之前读取的INI的程序～读到特定的位置把变量写入=之后就好了吧～

挖勒～我还在爬C语言版～搞UNIX的文件转DOS的文件的C语言写法勒 = =

[ 本帖最后由 wube 于 2011-5-19 20:34 编辑 ]

'------------BAS 里的定义------------------
'读写INI文件函数
Option Explicit

'写
Public 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
'读
Public 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
   
'保存到INI文件
Public Function Wini(ByVal 段 As String, ByVal 键 As String, ByVal 值 As String, IniFile As String) As Boolean
Dim X As Long, buff As String * 128, i As Long
buff = 值 & Chr(0)
X = WritePrivateProfileString(段, 键, buff, IniFile)
Wini = X
End Function

'从INI文件中读取
Public Function Rini(ByVal 段 As String, ByVal 键 As String, IniFile As String) As String
Dim X As Long, buff As String * 128, i As Long
X = GetPrivateProfileString(段, 键, "", buff, 128, IniFile)
i = InStr(buff, Chr(0))
Rini = Trim(Left(buff, i - 1))
End Function

'-------------使用--------------------
for i=0 to list1.listcount-1                '先连接起来
    s= s & "|" & list1.list(i)
next i
saveinit "X","aaa",s,IniFileName            '保存

同8楼～