Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
[CODE]Dim line(10000) As String Dim log_ctr As Integer Open App.Path & "\data\log.txt" For Input Lock Read As #1 Do Until EOF(1) Line Input #1, line(log_ctr) log_ctr = log_ctr + 1 Loop Close #1 If last_log <> log_ctr Then For n = last_log To log_ctr - 1 Text1.SelStart = Len(Text1.Text) Text1.SelText …
|