VBA Script to Transform Text File Data into Fields with Values

nshah4

New Member
Joined
Mar 19, 2018
Messages
1
Hi All,

I am trying to figure out how to use a script to transform the following data into fields/columns with their associated values. Each file has a varying amount of sub-data under it, each delineated by some number of dashes (e.g. "-----------" or "------------------------------"). For example, in the data below, for file 1, there is Basic, Container, Video and Audio information, but for file 2, there is just Basic information. There are thousands of these that I want to run through with varying amounts of sub-data to basically come out with the File names in Column A and the associated metadata in Columns B through whatever. Would really appreciate any help on writing a script to do this! Thank you!
[TABLE="width: 280"]
<tbody>[TR]
[TD]VideoFile.mov[/TD]
[/TR]
[TR]
[TD]--------------[/TD]
[/TR]
[TR]
[TD]File[/TD]
[/TR]
[TR]
[TD]Name: VideoFile.mov[/TD]
[/TR]
[TR]
[TD]Size: 14.7 GB (14694697332 bytes)[/TD]
[/TR]
[TR]
[TD]Kind: QuickTime movie[/TD]
[/TR]
[TR]
[TD]UTI: com.apple.quicktime-movie[/TD]
[/TR]
[TR]
[TD]Location: /Volumes/PLT-24819-1_1/PLT-24819-1/002[/TD]
[/TR]
[TR]
[TD]Created: September 14 2009 at 3:42:20 PM[/TD]
[/TR]
[TR]
[TD]Modified: September 14 2009 at 3:42:20 PM[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Container[/TD]
[/TR]
[TR]
[TD]Format: QuickTime[/TD]
[/TR]
[TR]
[TD]Format/Info: Original Apple specifications[/TD]
[/TR]
[TR]
[TD]Duration: 5 min 40 s 873 ms[/TD]
[/TR]
[TR]
[TD]Overall bit rate mode: Constant[/TD]
[/TR]
[TR]
[TD]Overall bit rate: 345 Mb/s[/TD]
[/TR]
[TR]
[TD]Encoded date: UTC 2009-09-14 22:28:28[/TD]
[/TR]
[TR]
[TD]Tagged date: UTC 2009-09-14 22:42:20[/TD]
[/TR]
[TR]
[TD]Writing library: Apple QuickTime[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Video[/TD]
[/TR]
[TR]
[TD]ID: 2[/TD]
[/TR]
[TR]
[TD]Format: Avid Meridien Uncompressed[/TD]
[/TR]
[TR]
[TD]Codec ID: AVUI[/TD]
[/TR]
[TR]
[TD]Duration: 5 min 40 s 873 ms[/TD]
[/TR]
[TR]
[TD]Bit rate mode: Constant[/TD]
[/TR]
[TR]
[TD]Bit rate: 344 Mb/s[/TD]
[/TR]
[TR]
[TD]Width: 720 pixels[/TD]
[/TR]
[TR]
[TD]Height: 486 pixels[/TD]
[/TR]
[TR]
[TD]Pixel aspect ratio: 1.000[/TD]
[/TR]
[TR]
[TD]Display aspect ratio: 3:2[/TD]
[/TR]
[TR]
[TD]Frame rate mode: Constant[/TD]
[/TR]
[TR]
[TD]Frame rate: 29.970 (29970/1000) FPS[/TD]
[/TR]
[TR]
[TD]Frame count: 10216[/TD]
[/TR]
[TR]
[TD]Standard: NTSC[/TD]
[/TR]
[TR]
[TD]Scan type: Interlaced[/TD]
[/TR]
[TR]
[TD]Bits/(Pixel*Frame): 32.849[/TD]
[/TR]
[TR]
[TD]Stream size: 14.7 GB (99.9%)[/TD]
[/TR]
[TR]
[TD]Language: English[/TD]
[/TR]
[TR]
[TD]Encoded date: UTC 2009-09-14 22:28:28[/TD]
[/TR]
[TR]
[TD]Tagged date: UTC 2009-09-14 22:42:20[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Audio[/TD]
[/TR]
[TR]
[TD]ID: 1[/TD]
[/TR]
[TR]
[TD]Format: ADPCM[/TD]
[/TR]
[TR]
[TD]Format settings: IMA[/TD]
[/TR]
[TR]
[TD]Codec ID: ima4[/TD]
[/TR]
[TR]
[TD]Duration: 5 min 40 s 873 ms[/TD]
[/TR]
[TR]
[TD]Bit rate mode: Constant[/TD]
[/TR]
[TR]
[TD]Channel(s): 2 channels[/TD]
[/TR]
[TR]
[TD]Sampling rate: 44.1 kHz[/TD]
[/TR]
[TR]
[TD]Bit depth: 16 bits[/TD]
[/TR]
[TR]
[TD]Stream size: 15.0 MB (0.1%)[/TD]
[/TR]
[TR]
[TD]Language: English[/TD]
[/TR]
[TR]
[TD]Encoded date: UTC 2009-09-14 22:28:28[/TD]
[/TR]
[TR]
[TD]Tagged date: UTC 2009-09-14 22:42:20[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]B004_C001_0515TT_001.R3D[/TD]
[/TR]
[TR]
[TD]---------------------------------------------------------------------------------------[/TD]
[/TR]
[TR]
[TD]File[/TD]
[/TR]
[TR]
[TD]Name: B004_C001_0515TT_001.R3D[/TD]
[/TR]
[TR]
[TD]Size: 2.15 GB (2146098688 bytes)[/TD]
[/TR]
[TR]
[TD]Kind: Document[/TD]
[/TR]
[TR]
[TD]UTI: dyn.ah62d4rv4ge81eq5e[/TD]
[/TR]
[TR]
[TD]Location: /Volumes/PLT-24819-1_1/PLT-24819-1/002/B004_C001_0515TT_001.R3D[/TD]
[/TR]
[TR]
[TD]Created: May 15 2010 at 1:14:46 PM[/TD]
[/TR]
[TR]
[TD]Modified: May 15 2010 at 1:15:42 PM[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Container[/TD]
[/TR]
[TR]
[TD]Format: R3D[/TD]
[/TR]
</tbody>[/TABLE]
 

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

Forum statistics

Threads
1,223,908
Messages
6,175,306
Members
452,633
Latest member
DougMo

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top