VB6 and ini file (RESOLVED)

[RobCrombie]

This won't be fast.
As you read in each line, add it to a string.
But before adding each line, do a test to see if already in the string.

If InStr(1,sBuilding,sCandidate)=0 then
  Add to your count
  Concatenate sCandidate onto end of sBuilding
End If

[Robbo]

This won't be fast.
As you read in each line, add it to a string.
But before adding each line, do a test to see if already in the string.

If InStr(1,sBuilding,sCandidate)=0 then
  Add to your count
  Concatenate sCandidate onto end of sBuilding
End If

cool that seem to work, on neex thing i need to do then is just flag up which ones are doubles, can i put a message box in there?

have this

Open strEmailfile For Input As #intFreeFile
  Do While Not EOF(intFreeFile)
    Line Input #intFreeFile, strEmails
    
    If InStr(1, strTotalEmails, strEmails) = 0 Then
    'Add to your count
    'Concatenate sCandidate onto end of sBuilding
        intEmailCount = intEmailCount + 1
        strTotalEmails = strTotalEmails + strEmails
    End If
 
  Loop
Close #intFreeFile
 
MsgBox ("Email Count = " & intEmailCount)

[RobCrombie]

Option Explicit
 
Private Sub cmdEmail_Click()
'************* open emails from file***********
 Dim strEmailfile As String
 Dim intFreeFile As Integer
 Dim strEmails As String ' Read in
 Dim strTotalEmails As String
 Dim strDuplicates As String
 Dim intEmailCount As Integer
 
  strEmailfile = App.Path & "\emails.ini"
  'S:\Disaster Recovery\VB Program Backup\SBO Comm V1.7
  'MsgBox (strEmailfile)
  intFreeFile = FreeFile
  
  On Error GoTo FinishCheck
  Open strEmailfile For Input As #intFreeFile
  Do While Not EOF(intFreeFile)
    Line Input #intFreeFile, strEmails
    
    If InStr(1, strTotalEmails, strEmails) = 0 Then
    'Add to your count
    'Concatenate sCandidate onto end of sBuilding
        intEmailCount = intEmailCount + 1
        strTotalEmails = strTotalEmails & strEmails
    Else
      strDuplicates = strDuplicates & vbCrLf & strEmails
    End If
 
  Loop
  Close #intFreeFile
 
  MsgBox ("Email Count = " & intEmailCount)
  If Len(strDuplicates) > 0 Then
    MsgBox strDuplicates, , " THESE WERE DUPLICATED"
  End If
FinishCheck:
End Sub

Hope that does the job.
I'm off to bed now (it's 4:08 AM)

[Robbo]

ok thats works ok with a bit of jiging thats just what i want cheers