Board index » Visual Studio » Textstring processing/grouping

Visual Studio353
Hi,

I would like to read a textfile (list of transactions, one transaction

per line) and group similar transactions together (several

transactions per line). Something like this,



PABIT

PABIT4

PABIT5

PABIT6

PABIT7

PABIT8

PABITB

PABITF

PABITL

PABI

PABIX1

PABIX2

PABIX3

PABIX7

PABIX8

PABIXB

PABIXC

PABIXD

PABIXE

PABIXF

PABIXL



will be grouped like,



PABIT PABIT4 PABIT5 PABIT6 PABIT7 PABIT8 PABITB PABITF PABITL

PABI PABIX1 PABIX2 PABIX3 PABIX7 PABIX8 PABIXB PABIXC PABIXD PABIXE

PABIXF PABIXL



It used to be done with a unix awk script earlier, can it be done with

vbs?



I know how to open/read/write textfiles but I need help with the

grouping part, if possible please provide some code sample.



Any help is greatly appreciated.



Thanks Jan.


-

<israelsson.jan@googlemail.com>wrote in message

What do mean by grouping? I can't see any grouping going on here; all I see

is a set of IDs separated by new lines turned into the same set separated by

spaces.



Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")

Dim oStream : Set oStream = fso.OpenTextStream("c:\temp\yourfile.dat")

Dim s : s = oStream.ReadAll

oStream.Close



s = Replace(Replace(s, vbCr, ""), vLf, " ")



That's not what you're after though is it?





-

israelsson.jan@googlemail.com schrieb:

Does PABIXF really start a new group with member PABIXL?



-

On 14 Mar, 17:29, "ekkehard.horner" <ekkehard.hor...@arcor.de>wrote:

No it does not, they should have been on the same line as the other

PABIX*.

A new group generally starts with the first 4 chrs (like PABI and its

members PABIX*), however to make things a bit more complicated it can

also be the first 3 or 5 chrs (like PABIT and its members PABIT* or

INF with its members INF02, INF08 and INF09).

I realise this may not be possible to do, but a piece of code that

does the grouping based on the first 4 chrs (which is the usual case)

would help out a great deal.



-

jan schrieb:



Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )

Dim oTS : Set oTS = oFS.OpenTextFile( ".\groupta.txt" )

If Not oTS.AtEndOfStream Then

Dim sHead : sHead = Trim( oTS.ReadLine )

Dim sGroup : sGroup = sHead

Dim sLine

Do While Not oTS.AtEndOfStream

sLine = Trim( oTS.ReadLine )

If 1 = InStr( sLine, sHead ) Then

sGroup = sGroup + " " + sLine

Else

WScript.Echo sGroup

sHead = sLine

sGroup = sHead

End If

Loop

WScript.Echo sGroup

End If

oTS.Close



is based on the assumption that each group starts with its prefix/head.

Given the test data:



PABIT

PABIT4

PABIT5

PABIT6

PABIT7

PABIT8

PABITB

PABITF

PABITL

PABI

PABIX1

PABIX2

PABIX3

PABIX7

PABIX8

PABIXB

PABIXC

PABIXD

PABIXE

PABIXF

PABIXL

INF

INF02

INF08

OTHER

GOTCHA

GOTCHA01

GOTCHA02

NO



the output is:



=== groupTA: group transactions ===============================================

PABIT PABIT4 PABIT5 PABIT6 PABIT7 PABIT8 PABITB PABITF PABITL

PABI PABIX1 PABIX2 PABIX3 PABIX7 PABIX8 PABIXB PABIXC PABIXD PABIXE PABIXF PABIXL

INF INF02 INF08

OTHER

GOTCHA GOTCHA01 GOTCHA02

NO

=== groupTA: 0 done (00:00:00) ================================================



A sequence of headers like



HEAD

HEAD01

HEADER

HEADER01



will cause roblems however.







-

On 15 Mar, 12:58, "ekkehard.horner" <ekkehard.hor...@arcor.de>wrote:

Thank you very much, this will help a lot!



-