现在程序的目录下有一Setup.ini文件，内容如下：
苹果
香蕉
橘子
雪梨
荔枝
Form窗体中有1个List1控件，4个command按钮。我想实现的功能是：
第一个：
当按下commnad1时，把setup.ini的内容加载到List1控件里面。
当按下command2时，比如我选中List1中的“雪梨”，那么就把“雪梨”从List1中
删除掉，同时Setup.ini文件中所对应的内容“雪梨”也被删除掉。
当按下command3时，List1的内容保存到Setup.ini文件里。
第二个：
比如我选中了List1中的“荔枝”选项，当按下command4时，List1中“荔枝”
的位置和“雪梨”的位置对调。
10 个解决方案
#1
苹果
香蕉
橘子
雪梨
荔枝
Form窗体中有1个List1控件，4个command按钮。我想实现的功能是：
第一个：
当按下commnad1时，把setup.ini的内容加载到List1控件里面。
当按下command2时，比如我选中List1中的“雪梨”，那么就把“雪梨”从List1中
删除掉，同时Setup.ini文件中所对应的内容“雪梨”也被删除掉。
当按下command3时，List1的内容保存到Setup.ini文件里。
第二个：
比如我选中了List1中的“荔枝”选项，当按下command4时，List1中“荔枝”
的位置和“雪梨”的位置对调。
香蕉
橘子
雪梨
荔枝
Form窗体中有1个List1控件，4个command按钮。我想实现的功能是：
第一个：
当按下commnad1时，把setup.ini的内容加载到List1控件里面。
当按下command2时，比如我选中List1中的“雪梨”，那么就把“雪梨”从List1中
删除掉，同时Setup.ini文件中所对应的内容“雪梨”也被删除掉。
当按下command3时，List1的内容保存到Setup.ini文件里。
第二个：
比如我选中了List1中的“荔枝”选项，当按下command4时，List1中“荔枝”
的位置和“雪梨”的位置对调。
#2
小弟先谢谢大家了！
#3
这也太简单了吧
#4
很简单
先用Line Input#语句读取文件内容到ListBox
在对ListBox进行操作
最后写文件
至于交换
就是先删除再添加
先用Line Input#语句读取文件内容到ListBox
在对ListBox进行操作
最后写文件
至于交换
就是先删除再添加
#5
用api就可以了呀，設一個數組變量就好了呀，用兩個API實現讀寫功能！在另一貼中
#6
WINDOWS提供专门的API函数来读ini文件的，可以用很方便！
#7
定義全局變量先讀進來，然后當然再寫回去呀！！可有有這樣的兩個API用：
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpSectionName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
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 lpSectionName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
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
#8
vongates968(Gates) 的方法是不行的，因为用GetPrivateProfileString函数只有在知道了Setup.ini文件总共有多少项的情况下才可以用，而zyl910(910：分儿，我来了！) 的办法我也知道，但我不知道代码怎么写呀！
我忘了说明，Setup.ini文件的内容是不知道有多少项的,所以不能用GetPrivateProfileString函数，而写入应该用Write函数吧。
谁可以帮帮我呀！我写了很多次代码也不成功！
我忘了说明，Setup.ini文件的内容是不知道有多少项的,所以不能用GetPrivateProfileString函数，而写入应该用Write函数吧。
谁可以帮帮我呀！我写了很多次代码也不成功！
#9
help me!!!
#10
EOF 函数
返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
语法
EOF(filenumber)
必要的 filenumber 参数是一个 Integer，包含任何有效的文件号。
说明
使用 EOF 是为了避免因试图在文件结尾处进行输入而产生的错误。
直到到达文件的结尾，EOF 函数都返回 False。对于为访问 Random 或 Binary 而打开的文件，直到最后一次执行的 Get 语句无法读出完整的记录时，EOF 都返回 False。
对于为访问 Binary 而打开的文件，在 EOF 函数返回 True 之前，试图使用 Input 函数读出整个文件的任何尝试都会导致错误发生。在用 Input 函数读出二进制文件时，要用 LOF 和 Loc 函数来替换 EOF 函数，或者将 Get 函数与 EOF 函数配合使用。对于为 Output 打开的文件，EOF 总是返回 True。
EOF 函数示例
本示例使用 EOF 函数来检测文件尾。示例中假设 MYFILE 为有数个文本行的文本文件。
Dim InputData
Open "MYFILE" For Input As #1 ' 为输入打开文件。
Do While Not EOF(1) ' 检查文件尾。
Line Input #1, InputData ' 读入一行数据。
Debug.Print InputData ' 在立即窗口中显示。
Loop
Close #1 ' 关闭文件。
#1
苹果
香蕉
橘子
雪梨
荔枝
Form窗体中有1个List1控件，4个command按钮。我想实现的功能是：
第一个：
当按下commnad1时，把setup.ini的内容加载到List1控件里面。
当按下command2时，比如我选中List1中的“雪梨”，那么就把“雪梨”从List1中
删除掉，同时Setup.ini文件中所对应的内容“雪梨”也被删除掉。
当按下command3时，List1的内容保存到Setup.ini文件里。
第二个：
比如我选中了List1中的“荔枝”选项，当按下command4时，List1中“荔枝”
的位置和“雪梨”的位置对调。
香蕉
橘子
雪梨
荔枝
Form窗体中有1个List1控件，4个command按钮。我想实现的功能是：
第一个：
当按下commnad1时，把setup.ini的内容加载到List1控件里面。
当按下command2时，比如我选中List1中的“雪梨”，那么就把“雪梨”从List1中
删除掉，同时Setup.ini文件中所对应的内容“雪梨”也被删除掉。
当按下command3时，List1的内容保存到Setup.ini文件里。
第二个：
比如我选中了List1中的“荔枝”选项，当按下command4时，List1中“荔枝”
的位置和“雪梨”的位置对调。
#2
小弟先谢谢大家了！
#3
这也太简单了吧
#4
很简单
先用Line Input#语句读取文件内容到ListBox
在对ListBox进行操作
最后写文件
至于交换
就是先删除再添加
先用Line Input#语句读取文件内容到ListBox
在对ListBox进行操作
最后写文件
至于交换
就是先删除再添加
#5
用api就可以了呀，設一個數組變量就好了呀，用兩個API實現讀寫功能！在另一貼中
#6
WINDOWS提供专门的API函数来读ini文件的，可以用很方便！
#7
定義全局變量先讀進來，然后當然再寫回去呀！！可有有這樣的兩個API用：
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpSectionName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
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 lpSectionName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
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
#8
vongates968(Gates) 的方法是不行的，因为用GetPrivateProfileString函数只有在知道了Setup.ini文件总共有多少项的情况下才可以用，而zyl910(910：分儿，我来了！) 的办法我也知道，但我不知道代码怎么写呀！
我忘了说明，Setup.ini文件的内容是不知道有多少项的,所以不能用GetPrivateProfileString函数，而写入应该用Write函数吧。
谁可以帮帮我呀！我写了很多次代码也不成功！
我忘了说明，Setup.ini文件的内容是不知道有多少项的,所以不能用GetPrivateProfileString函数，而写入应该用Write函数吧。
谁可以帮帮我呀！我写了很多次代码也不成功！
#9
help me!!!
#10
EOF 函数
返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
语法
EOF(filenumber)
必要的 filenumber 参数是一个 Integer，包含任何有效的文件号。
说明
使用 EOF 是为了避免因试图在文件结尾处进行输入而产生的错误。
直到到达文件的结尾，EOF 函数都返回 False。对于为访问 Random 或 Binary 而打开的文件，直到最后一次执行的 Get 语句无法读出完整的记录时，EOF 都返回 False。
对于为访问 Binary 而打开的文件，在 EOF 函数返回 True 之前，试图使用 Input 函数读出整个文件的任何尝试都会导致错误发生。在用 Input 函数读出二进制文件时，要用 LOF 和 Loc 函数来替换 EOF 函数，或者将 Get 函数与 EOF 函数配合使用。对于为 Output 打开的文件，EOF 总是返回 True。
EOF 函数示例
本示例使用 EOF 函数来检测文件尾。示例中假设 MYFILE 为有数个文本行的文本文件。
Dim InputData
Open "MYFILE" For Input As #1 ' 为输入打开文件。
Do While Not EOF(1) ' 检查文件尾。
Line Input #1, InputData ' 读入一行数据。
Debug.Print InputData ' 在立即窗口中显示。
Loop
Close #1 ' 关闭文件。