Hej alla Pelle softare!
hur gör jag för att se om det redan finns en text i en fil?
Jag har en fil som heter db.txt som jag lägger in lite text i.
Texten är komma separerad, och jag har en text på 6:te plats som jag skulle vilja undvika att bli densamma. Man får göra en sorts loop för att läsa in texten och jämföra sjätte platsen med den text
som jag har på text6.text så den inte blir densamma. Hur går jag till väga för att göra en sådan loop?
db.txt ligger i samma mapp som programmet. Nedan anger hur jag lägger in i filen.

<code>strApp = App.Path
Open strApp & "db.txt" For Append As F
Write #F, text, text, text, text, text, här är texten jag vill kolla
close #F
</code>

//mvh Jocke

Eftersom du separerar texterna med komma(,) så är det som gjort
för att du skall jämföra 2 st Slitarrayer Kolla på oldArray = Split(Text,",") osv. newArray.

Tack för tipset Sven, skall kollas när jag kommer hem från jobbet.

Hej!
Hittade en annan lösning på problemet, Sedan jag har en listview kopplad till textboxarna gjorde jag följande istället.
<code>
Dim itmX As ListItem
Set itmX = ListView1.FindItem(text6.Text, 1, , 0)
If itmX Is Nothing Then
'mer kod här
end if
</code>

//Jocke

Ok på det fungerar , säkert bra.
Ang att ta bort dubbletter ur en Array /ListBox /RecordSet kan Ni som är intresserade kolla detta

Programarkivet:Ta Bort Dubbletter