	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.0

Using VB, a text line read in is not yielding correct record length ... any ideas for this newbie?

Asked by bhindbjorgen in VB Controls, VB Database Programming, VB Objects

Tags: VB visual basic

I am reading in a file containing records of variable length ... some of which are quite long (over 4096 characters). For these records, I am wishing to handle differently than those that are less than 4096 characters in length. The problem is with the Len(). It is not yielding the correct length for me on these long records. I am attaching code and input file.
Thanks in advance. Brad.

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

           
           
             FileToDelete = ("WCR-PreSort.txt")
    
    If objFSO.FileExists(FileFolder & FileToDelete) = True Then
        Dim objOutputFile
        Set objOutputFile = objFSO.CreateTextFile(FileFolder & FileToDelete, True)
        objOutputFile.Close
        objFSO.DeleteFile (FileFolder & FileToDelete)
    Else
        ' MsgBox "Msg from Form's VB Code ... File(s) do not exist."
    End If
 
    Dim SourceNum, DestNum, RecLength As Integer
    Dim ReadLine, strText As String
    
    SourceNum = FreeFile()
    Open "C:\Case Reports\Access Data\WCR-Merged2.txt" For Input As SourceNum
    
    DestNum = FreeFile()
    Open "C:\Case Reports\Access Data\WCR-PreSort.txt" For Append As DestNum
    
    Do While Not EOF(SourceNum)
    Input #SourceNum, ReadLine
    RecLength = Len(ReadLine)
    If RecLength > 4095 Then
        strText = "Due to content length, this text cannot be viewed here."
    Else
        strText = ReadLine
    End If
    Print #DestNum, strText
    Loop
 
Exit_RunCommandPreSort_Click:
    Close #DestNum
    Close #SourceNum
    
    Exit Sub

           
         

Attachments:

WCR-Merged2.txt (7 KB) (File Type Details)

Text File containing records of various lengths.

20091111-EE-VQP-92 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. Idle_Mind127,954
2. danaseaman67,647
3. CodeCruiser49,339
4. jpaulino44,672
5. emoreau37,575
6. webtubbs34,715
7. RobSamp...30,950
8. rorya23,350
9. abel23,150
10. matthews...21,648
11. Dhaest19,825
12. GrahamSkan18,750
13. chris_bot...18,300
14. angelIII18,272
15. EDDYKT17,428
16. BlueDevilF...15,500
17. TheLearn...15,300
18. kaufmed14,805
19. robberbaron14,100
20. Shift-313,900
21. LSMCons...12,700
22. egl104412,500
23. harfang10,700
24. mlmcc10,475
25. jppinto9,800

1. Idle_Mind655,434
2. danaseaman342,867
3. emoreau251,838
4. GrahamSkan239,830
5. vinnyd79208,855
6. angelIII190,155
7. Dabas173,271
8. jpaulino170,326
9. vb_elmar167,017
10. Dhaest162,192
11. EDDYKT155,431
12. shijusn152,523
13. TimCottee117,614
14. rorya114,475
15. Sethi109,849
16. edwardiii101,199
17. JR200398,026
18. bruintje97,512
19. ryancys91,743
20. Computron89,772
21. dbrckovi88,665
22. RobSamp...87,374
23. zzzzzooc83,209
24. PaulHews83,111
25. webtubbs78,265

Using VB, a text line read in is not yielding correct record length ... any ideas for this newbie?

Asked by bhindbjorgen in VB Controls, VB Database Programming, VB Objects

Tags: VB visual basic

About this solution