Imports Microsoft.VisualBasic
Imports System.Text.RegularExpressions
Dim s As String = "ISA^00^ ^00^ ^ZZ^ ^ZZ^ ^160818^1700^U^00401^000000007^0^T^|~GS^PO^^^20160818^1700^7^X^004010~ST^850^1001~BEG^00^SA^9902159341^^20160802~CUR^BY^USD~PER^BD^73^TE^212-297-4503^EM^hil9001@nyp.org^^^HUNG LIEN~N1^ST^New York Presbyterian Hospital^91^1014492~PO1^1^1^EA^7.15^^IN^MDT11WHT4E^VN^MDT11WHT4E~PID^F^^^^Medline Scrubs- LADIES STAFF L~MSG^2000627-1000400~CTT^1~SE^10^1001~ST^850^1002~BEG^00^SA^9902159343^^20160802~CUR^BY^USD~PER^BD^73^TE^212-297-4503^EM^hil9001@nyp.org^^^HUNG LIEN~DTM^002^20160804~N1^ST^New York Presbyterian Hospital^91^1014492~PO1^1^1^EA^10.03^^IN^10106RYLM^VN^10106RYLM~PID^F^^^^Mens and Womens Scrub Tops - D~MSG^2000589-1000194~CTT^1~SE^11^1002~ST^850^1003~BEG^00^SA^9902159344^^20160802~CUR^BY^USD~PER^BD^73^TE^212-297-4503^EM^hil9001@nyp.org^^^HUNG LIEN~DTM^002^20160804~N1^ST^New York Presbyterian Hospital^91^1014492~PO1^1^1^EA^5.58^^IN^MDT10WHT34E^VN^MDT10WHT34E~PID^F^^^^Medline Scrubs - MENS CONSULTA~MSG^2000618-1000351~PO1^2^1^EA^7.15^^IN^MDT11WHT2E^VN^MDT11WHT2E~PID^F^^^^Medline Scrubs- LADIES STAFF L~MSG^2000618-1000350~MSG^Please deliver asap.~CTT^2~SE^15^1003~ST^850^1004~BEG^00^SA^9902159345^^20160818~CUR^BY^USD~PER^BD^73^TE^212-297-4503^EM^hil9001@nyp.org^^^HUNG LIEN~DTM^002^20160819~N1^ST^New York Presbyterian Hospital^91^1014492~PO1^1^5^EA^18.53^^IN^4350ROYWXXXL^VN^4350ROYWXXXL~PID^F^^^^CHEROKEE | SCRUB JACKETS | SNA~MSG^2000632-1000434~PO1^2^5^EA^5.58^^IN^MDT10WHT36E^VN^MDT10WHT36E~PID^F^^^^Medline Scrubs - MENS CONSULTA~MSG^2000632-1000435~CTT^2~SE^14^1004~ST^850^1005~BEG^00^SA^9902159346^^20160818~CUR^BY^USD~PER^BD^73^TE^212-297-4503^EM^hil9001@nyp.org^^^HUNG LIEN~DTM^002^20160819~N1^ST^New York Presbyterian Hospital^91^1014492~PO1^1^10^EA^16.15^^IN^4301ROYWS^VN^4301ROYWS~PID^F^^^^Cherokee | Scrub Jacket | V-ne~MSG^2000633-1000436~PO1^2^10^EA^12.98^^IN^MDT11WHTST8E^VN^MDT11WHTST8E~PID^F^^^^SILVERTOUCH | LADIES STAFF LEN~MSG^2000633-1000437~CTT^2~SE^14^1005~ST^850^1006~BEG^00^SA^9902159347^^20160818~CUR^BY^USD~PER^BD^73^TE^212-297-4503^EM^hil9001@nyp.org^^^HUNG LIEN~DTM^002^20160820~N1^ST^New York Presbyterian Hospital^91^1014492~PO1^1^3^EA^17.1^^IN^4000ROYWM^VN^4000ROYWM~PID^F^^^^Cherokee | Scrub Pant | Mens C~MSG^2000634-1000439~PO1^2^7^EA^13.3^^IN^4001ROYWM^VN^4001ROYWM~PID^F^^^^CHEROKEE | SCRUB PANT | CLASS~MSG^2000634-1000440~PO1^3^12^EA^18.58^^IN^51206RYLSP^VN^51206RYLSP~PID^F^^^^DICKIES | DRAWSTRING | FLARE L~MSG^2000634-1000441~CTT^3~SE^17^1006~GE^6^7~IEA^1^000000007~"
Dim orders as string = Regex.Split(s, "~GE\^")(0)
orders = Regex.Split(orders, "~ST\^850\^1001~")(1)
s = Replace(s, Chr(13), "")
s = Replace(s, Chr(10), "")
For each match as string in Regex.Split(orders, "ST\^850\^")
Console.WriteLine("-----------------")