在线等一个问题!一小时后结贴!
求一个算法!
比如
我每次登陆后都把帐号保存到一个txt里.当我下次运行的时候.帐号的下拉框里可以选择到我登陆过的所有帐号.并且最近一次的帐号是排第一个/.
请问针对于重复出现的帐号应该怎么样进行排序!
[解决办法]
你可以用INI来读写，然后过滤重复显示的记录
Attribute VB_Name = "Module1 "
Option Explicit
'INI文件操作函数
Private Declare Function GetPrivateProfileStringByKeyName& Lib "kernel32 " Alias "GetPrivateProfileStringA " (ByVal lpApplicationName$, ByVal lpszKey$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function GetPrivateProfileStringKeys& Lib "kernel32 " Alias "GetPrivateProfileStringA " (ByVal lpApplicationName$, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function GetPrivateProfileStringSections& Lib "kernel32 " Alias "GetPrivateProfileStringA " (ByVal lpApplicationName&, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function WritePrivateProfileStringByKeyName& Lib "kernel32 " Alias "WritePrivateProfileStringA " (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)
Private Declare Function WritePrivateProfileStringToDeleteKey& Lib "kernel32 " Alias "WritePrivateProfileStringA " (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Long, ByVal lplFileName As String)
Private Declare Function WritePrivateProfileStringToDeleteSection& Lib "kernel32 " Alias "WritePrivateProfileStringA " (ByVal lpApplicationName As String, ByVal lpKeyName As Long, ByVal lpString As Long, ByVal lplFileName As String)
'自定义读取INI函數
Public Function getIni(ByVal pfileName As String, ByVal psection As String, ByVal pkey As String) As String
Dim x As Long, Buff As String * 128, i%
x = GetPrivateProfileStringByKeyName(psection, pkey, " ", Buff, 128, pfileName)
i = InStr(Buff, Chr(0))
getIni = Trim(Left(Buff, i - 1))
End Function
'自定义写入INI函數
Public Function WriteIni(ByVal psection As String, ByVal pkey As String, ByVal pvalue As String, ByVal filePath As String) As Boolean
Dim x As Long, Buff As String * 128, i As Integer
Buff = pvalue + Chr(0)
x = WritePrivateProfileStringByKeyName(psection, pkey, Buff, filePath)
WriteIni = x
End Function
