Using criteria to generate a new text file which replace orginal value in text file

Hi hsuyf,

You have no question history...what language are you working in here?

    VBScript (.vbs)
    VBA (MSOffice)
    VB6
    VB.Net 2003
    VB.Net 2005

the following will do something like this in VB6, but note : I calculate a symbol name like you described, but e.g. 2700 will result in non-letter characters!

Option Explicit

Private Sub Command1_Click()

Dim FileNr As Long
FileNr = FreeFile
Open "c:\test.txt" For Input As #FileNr
Dim FileNrOutput As Long
FileNrOutput = FreeFile
Open "c:\test_out.txt" For Output As #FileNrOutput

'open your file


Dim sLine As String

'read your lines
While Not EOF(FileNr)

Dim Items() As String
'get the data
Input #FileNr, sLine

Items = Split(sLine, " ")

'
If UBound(Items) >= 1 Then

    Dim sNewVal1 As String
    Translate Items(0), sNewVal1
    Dim sNewVal2 As String
    Translate Items(1), sNewVal2
   
    Print #FileNrOutput, sNewVal1 & " " & sNewVal2
   
End If


Wend

'close your file
Close (FileNr)
Close (FileNrOutput)

End Sub

Private Sub Translate(orgVal As String, ByRef newVal As String)

    Dim dNew As Double
    If Not IsNumeric(orgVal) Then Exit Sub
   
    dNew = CDbl(orgVal)
       
    newVal = Chr(Asc("A") + (dNew \ 100))
   
End Sub

I want to use VB6 to solve this question. Thanks

I assumed you would, according the group you posted in :D
Did you try my solution?

Thanks for your hlep, I just try it but there is no any output showing. I am kind of confused here. could you please help me more about it.

my input file is a text file with thousand rows like below
354.0 1353.0
1655.0 1184.0
239.0 1266.0
289.0 1266.0
421.0 1253.0
249.0 1253.0
273.0 2124.0
709.0 1220.0
391.0 1181.0
and so on.....

and I want to set an If statement (or use case statement) like
if value <= 500, assign it to letter "A"
if value between 501 to 1000 assign it to letter "B"
if  value >= 1001 assign it to letter "c"

the output will be in a new "text file" and looks like
G K
C K
B C
B K
K C
And so on….

In my example I write your output to "c:\test_out.txt"
if you want it to be divided per 500, change the example code to:
newVal = Chr(Asc("A") + (dNew \ 100)) --> newVal = Chr(Asc("A") + (dNew \ 500))

You might use a case statement like AtanAsfaloth, but that will leave you stuck to A,B,C

The Chr/Asc construction will take you A..Z and further , in less code!

That is completely true, however, if you want to use codes like A, B, C, F, K, Z, L, etc... in a non-standard way, my code allows this :)

Yeah, but then I would still prefer a construction like:

Private Function GetCode(Index as integer ) as string
dim myIndexes as string = "ABZFSWERPQ"
return myIndex.SubString(Index, 1)
End Function

But that's all a matter of taste :D

Hi thanks for your quickly hlep! ^_^

but first,  In the output file ('c:\test_out.txt"), it shows strange character in one line looks like  below

&#8259;†††††&#8260;&#8269;†††††

can I have result looks like2 columns with as many rows as orginal input looks like
C K
B C
B K
K C
And so on….

by the way, instead of ascending (or descending) order,
what if I want to use "if statement" to assing number to words something like
if value <= 500, assign it to "Monday"
if value between 501 to 1000 assign it to  "Friday"
if  value >= 1001 assign it to  "Satuturday"
and output file looks like

Monday Friday
Saturday Friday
Friday Monday
and so on...

Thanks

Using my script above, you can easily replace the A, B and C by eveything you like....

Hi,

I'm assuming you are using chinese windows. The output is being written as unicode.
To get rid of the strange characters, output a file as binary. So basically this code:

Option Explicit

Private Sub Command1_Click()

Dim FileNr As Long
FileNr = FreeFile
Open "c:\test.txt" For Input As #FileNr
Dim FileNrOutput As Long
FileNrOutput = FreeFile
Open "c:\test_out.txt" For Binary As #FileNrOutput

'open your file


Dim sLine As String

'read your lines
While Not EOF(FileNr)

Dim Items() As String
'get the data
Input #FileNr, sLine

Items = Split(sLine, " ")

'
If UBound(Items) >= 1 Then

    Dim sNewVal1 As String
    Translate Items(0), sNewVal1
    Dim sNewVal2 As String
    Translate Items(1), sNewVal2
   
    Print #FileNrOutput, sNewVal1 & " " & sNewVal2
   
End If


Wend

'close your file
Close (FileNr)
Close (FileNrOutput)

End Sub

Private Sub Translate(orgVal As String, ByRef newVal As String)

    Dim dNew As Double
    If Not IsNumeric(orgVal) Then Exit Sub
   
    dNew = CDbl(orgVal)
       
    newVal = Chr(Asc("A") + (dNew \ 100))
   
End Sub

No, it's just returning strange characters because of the Translate function :D
If he's inputting values that are higher than 2600 than you will go out of the alphabet and end up in strange numbers :D

Just build in your translation rules in the translate function and you're done