problem with strings, code included

i need to get information from different records in one record.
There are some restrictions:
the first character of the record must be the same
the second until the 21st character must be the same
the information i have to put together starts from position 33
the startposition of this information may never be the same.
i.e.:
0800100
0800100
In the attachement you will find the begin situation and the desired situation.


This is the code i'v made this far:

Sub Main()
Dim i As Integer

sOldfile1 = "c:\floreac\flores2.txt"
sFile2 = "c:\floreac\flores2.dat"
Open sOldfile1 For Input As #1
Open sFile2 For Output As #2

Line Input #1, sstring
sTOREString = sstring
Do While Not EOF(1) ' Check for end of file.

Line Input #1, sstring

strTempstring = Mid(sTOREString, 22, 61)
strTempstring2 = Mid(sstring, 22, 61)
lengte1 = Len(RTrim(strTempstring))
lengte2 = Len(RTrim(strTempstring2))

If (Left(sTOREString, 15) = Left(sstring, 15)) Then
If (Mid(sTOREString, 16, 6) = Mid(sstring, 16, 6)) Then
If (Left(sTOREString, 1) = Left(sstring, 1)) Then
If (lengte1 <> lengte2) Then

header = Mid(sTOREString, 2, 20)
links = RTrim(strTempstring)
rechts = LTrim(strTempstring2)
sTOREString = header & links & rechts
Debug.Print sTOREString

End If
End If
Else
Print #2, sTOREString
sTOREString = sstring
End If

End If


Loop


Close #1
Close #2



End Sub

can anybody help me plz? This is very urgent.
ideas or functions i better use are also welcome.
I think the problem i've got is to print the storestring at the right time.

nobody??
:confused: :(

can anyone tell me what i must do when:
1. the first if structure isn't true
2. the second if structure isn't true

must i print the record and name storestring into sstring?
I've tried this but it doesn't work, really getting desperate on this one.

help me pleaaaaaaaaaaaaaaaaaaaaaaaaaaaaase

Can probably help you.

One thing though, with the space in the text file, does that symobolize the end of a piece of text?

the first character of the record must be the same
the second until the 21st character must be the same
the information i have to put together starts from position 33
the startposition of this information may never be the same.

does this mean that anything after a space, cannot appear twice in the final string?

that's right.

really need an answer on this one....

willing to sell my wife for an answer :-)

OUCH! is all i can say...

the space between the left numberset and right numberset:

is it a set distance?
it seems to determine then position of the numbers when added togethr

Code:

---

txtOutput = ""
Dim strList As Variant
strList = Split(txtInput, " ")
For Each varlist In strList
    If InStr(1, txtOutput, varlist) = 0 Then
        txtOutput = txtOutput & varlist & vbCrLf
    End If
Next

---