From: Rick Rothstein on 11 May 2010 10:05 I'm getting the feeling you are not completely comfortable working with arrays; if that is the case, I'm not sure if the description below will be of enough help to you so that you will be able to extend it to handle your complete list of filenames... but let's try (you can always ask follow up questions as needed). To make the code work for your single case, change this line... FileNames() = "F:\Stored Data\Library\Barry White\05 Just The Way You Are.wma" to these two lines... ReDim FileNames(0) FileNames(0) = "F:\Stored Data\Library\Barry White\05 Just The Way You Are.wma" But to make the contents of the Artist, Title and Extension arrays available to other procedures in your project, you will have to move this line of code... Dim Artist() As String, Title() As String, Extension() As String from inside the Form_Load procedure to some location outside of that procedure depending on what modules will need to see it. If only the code on the Form's module, then put that line in the Form's General/Declaration section. If other modules will need to see it, then you should put it inside one of the BAS Modules (either one of the existing ones or a new one you add just to hold the Dim statement). -- Rick (MVP - Excel) "LondonLad" <LondonLad(a)discussions.microsoft.com> wrote in message news:6259F9C5-C10D-47B9-9351-3E781216DA02(a)microsoft.com... > Hi Rick > I took your code and added this line as below > > Private Sub Form_Load() > Dim X As Long, Position As Long, FileNames() As String, Parts() As String > Dim Artist() As String, Title() As String, Extension() As String > > FileNames() = "F:\Stored Data\Library\Barry White\05 Just The Way You > Are.wma" > > > ReDim Artist(LBound(FileNames) To UBound(FileNames)) > ReDim Title(LBound(FileNames) To UBound(FileNames)) > ReDim Extension(LBound(FileNames) To UBound(FileNames)) > For X = LBound(FileNames) To UBound(FileNames) > Parts = Split(FileNames(X), "\") > Artist(X) = Parts(UBound(Parts) - 1) > Position = InStrRev(Parts(UBound(Parts)), ".") > If Position = 0 Then > Title(X) = Parts(UBound(Parts)) > Else > Title(X) = Left(Parts(UBound(Parts)), Position - 1) > If Title(X) Like "#*" Then > Title(X) = Trim(Split(Title(X), Val(Title(X)), 2)(1)) > End If > Extension(X) = Mid(Parts(UBound(Parts)), Position + 1) > End If > Next > End Sub > > But I get a Compile Error > Can't assign To Array > > What have I done wrong please? > > Ron > > > "Rick Rothstein" wrote: > >> Given that my code returns three coordinated arrays, I'm not entirely >> sure >> what your question is actually looking to do. I thought my posted code >> was >> an example. >> >> -- >> Rick (MVP - Excel) >> >> >> >> "LondonLad" <LondonLad(a)discussions.microsoft.com> wrote in message >> news:80107147-84DC-42FB-A8DC-D36F352BDABC(a)microsoft.com... >> > Hi Rick >> > At the moment I split the information with the Split Function and put >> > the >> > results >> > into a listbox. I would like to use an array for this but was unable to >> > find >> > a suitable >> > example. >> > Can you offer help on an Array? >> > >> > Regards >> > >> > Ron >> > >> > "Rick Rothstein" wrote: >> > >> >> I'm still not totally clear where you are going with all this; >> >> however, I >> >> think this might help you. The following code snippet assumes your >> >> list >> >> of >> >> directories is stored in an array named FileNames, so change that as >> >> necessary. The code loops through the FileNames array and splits out >> >> the >> >> artist, title and file extension into three arrays named Artist, >> >> Title, >> >> and >> >> Extension. These three arrays are coordinated by their index; so, for, >> >> say >> >> the 4th item in the FileNames array (index value 3 if Option Base is >> >> set >> >> to >> >> 0, otherwise index value 4 if Option Base is set to 1), which is >> >> this... >> >> >> >> F:\Stored Data\Library\Barry White\05 Just The Way You Are.wma >> >> >> >> then these are the contents of the arrays... >> >> >> >> Artist(4) ==> "Barry White" >> >> Title(4) ==> "Just The Way You Are" >> >> Extension(4) ==> "wma" >> >> >> >> So, you can just iterate the three arrays, examine the relevant array >> >> and >> >> place the data according to your needs. By the way, I notice one of >> >> your >> >> filename paths does not have an extension... the Extension array will >> >> contain the empty string for it. Okay, here is the code... >> >> >> >> Dim X As Long, Position As Long, FileNames() As String, Parts() As >> >> String >> >> Dim Artist() As String, Title() As String, Extension() As String >> >> '.... >> >> '.... >> >> ReDim Artist(LBound(FileNames) To UBound(FileNames)) >> >> ReDim Title(LBound(FileNames) To UBound(FileNames)) >> >> ReDim Extension(LBound(FileNames) To UBound(FileNames)) >> >> For X = LBound(FileNames) To UBound(FileNames) >> >> Parts = Split(FileNames(X), "\") >> >> Artist(X) = Parts(UBound(Parts) - 1) >> >> Position = InStrRev(Parts(UBound(Parts)), ".") >> >> If Position = 0 Then >> >> Title(X) = Parts(UBound(Parts)) >> >> Else >> >> Title(X) = Left(Parts(UBound(Parts)), Position - 1) >> >> If Title(X) Like "#*" Then >> >> Title(X) = Trim(Split(Title(X), Val(Title(X)), 2)(1)) >> >> End If >> >> Extension(X) = Mid(Parts(UBound(Parts)), Position + 1) >> >> End If >> >> Next >> >> '.... >> >> '.... >> >> >> >> -- >> >> Rick (MVP - Excel) >> >> >> >> >> >> >> >> "LondonLad" <LondonLad(a)discussions.microsoft.com> wrote in message >> >> news:064CB269-AAE9-46DE-AB9B-2BA7D4A771B2(a)microsoft.com... >> >> > Hi Rick >> >> > A bit late to answer this been away for a few days, but here goes. >> >> > This is the full path string that I need to extract data from:- >> >> > >> >> > 1. F:\Stored Data\Library\Danny Williams\03 Love is Kind.mp3 >> >> > 2. F:\Stored Data\Library\Ken Follet\The Dangers of Time >> >> > 3. F:\Stored Data\Library\Roger Moore&Tony Curtis\Five Miles to >> >> > Midnight.avi >> >> > 4. F:\Stored Data\Library\Barry White\05 Just The Way You Are.wma >> >> > 5. F:\Stored Data\Library\Hols 07\Italian Lakes.wmv >> >> > >> >> > The first job is to split the Library Folder by File.extn with MP3 >> >> > and >> >> > wma >> >> > going into the same New Folder then with the music I want just the >> >> > Artists >> >> > Name and the Title of the recording. Some recordings do not have a >> >> > number >> >> > in >> >> > the Title Section. >> >> > >> >> > Regards >> >> > >> >> > Ron >> >> > >> >> > "Rick Rothstein" wrote: >> >> > >> >> >> Your original question was basically "how do I determine if there >> >> >> is a >> >> >> digit >> >> >> in my text"? Now, while I'm not 100% sure what the code snippet you >> >> >> posted >> >> >> should be doing, it does seem to hint at that you may have been >> >> >> asking >> >> >> the >> >> >> wrong question initially. I think you saw a path to your end result >> >> >> and >> >> >> asked us about one step along the way, but I am thinking there is a >> >> >> better >> >> >> way to get to your ultimate goal. Can you do us a favor? Forget >> >> >> about >> >> >> the >> >> >> ListBox and what you have split out and not split out... can you >> >> >> just >> >> >> give >> >> >> us maybe 4 or 5 samples of possible starting text (full path if >> >> >> that >> >> >> is >> >> >> what >> >> >> you have)(with and without numbers in whatever places numbers could >> >> >> possibly >> >> >> be located) and how you need each of them to look after being >> >> >> processed >> >> >> by >> >> >> the parsing part of your code? >> >> >> >> >> >> -- >> >> >> Rick (MVP - Excel) >> >> >> >> >> >> >> >> >> >> >> >> "LondonLad" <LondonLad(a)discussions.microsoft.com> wrote in message >> >> >> news:459AD240-D89F-47D1-9AC1-4EBA43121520(a)microsoft.com... >> >> >> > Hi Rick >> >> >> > After my post I found that it was possible to get a number in the >> >> >> > file >> >> >> > extn. >> >> >> > which >> >> >> > was picked up using the like example and I could not figure how >> >> >> > to >> >> >> > avoid >> >> >> > this. >> >> >> > Your code sample was the shortest way to find if numbers were >> >> >> > included >> >> >> > this >> >> >> > is what I finished up with in my test project. >> >> >> > I split the full string which includes folders and place the >> >> >> > results >> >> >> > in >> >> >> > a >> >> >> > ListBox >> >> >> > >> >> >> > txtA = LTrim(Mid(txtAns.List(2), 4)) >> >> >> > xStr = Mid(txtAns.List(3), 4) >> >> >> > strAns = Val(xStr) >> >> >> > If strAns > 0 Then strNum = 7 Else strNum = 5 >> >> >> > xStr = LTrim(Mid(txtAns.List(3), strNum)) >> >> >> > xLen(2) = Len(xStr) >> >> >> > txtB = Left(xStr, xLen(2) - 3) >> >> >> > >> >> >> > I am willing to change this if you can show me a better way. >> >> >> > Thanks for your interest. >> >> >> > >> >> >> > Regards >> >> >> > >> >> >> > Ron >> >> >> > >> >> >> > "Rick Rothstein" wrote: >> >> >> > >> >> >> >> Just curious... what "other errors" do you think you would >> >> >> >> encounter >> >> >> >> by >> >> >> >> using the Like operator as proposed in my first posting? >> >> >> >> >> >> >> >> I'm also curious about the code you plan to use for your >> >> >> >> If..Then >> >> >> >> test? >> >> >> >> >> >> >> >> -- >> >> >> >> Rick (MVP - Excel) >> >> >> >> >> >> >> >> >> >> >> >> "LondonLad" <LondonLad(a)discussions.microsoft.com> wrote in >> >> >> >> message >> >> >> >> news:9DC2AFF9-E9BC-416A-B95F-A3ED27B01463(a)microsoft.com... >> >> >> >> > Hi >> >> >> >> > Thank you all for your posts. >> >> >> >> > In the end I used Val as I felt that this gave less chance of >> >> >> >> > other >> >> >> >> > errors >> >> >> >> > later. >> >> >> >> > >> >> >> >> > Regards >> >> >> >> > >> >> >> >> > Ron >> >> >> >> > >> >> >> >> > "Helmut Meukel" wrote: >> >> >> >> > >> >> >> >> >> "LondonLad" <LondonLad(a)discussions.microsoft.com> schrieb im >> >> >> >> >> Newsbeitrag >> >> >> >> >> news:B96BED25-0A88-4124-9E61-3B874330B57D(a)microsoft.com... >> >> >> >> >> > Hi >> >> >> >> >> > xStr can contain a string which includes numbers or not >> >> >> >> >> > contain >> >> >> >> >> > numbers >> >> >> >> >> > >> >> >> >> >> > if it contains numbers I want to edit it. >> >> >> >> >> > >> >> >> >> >> > In my example which does not work >> >> >> >> >> > xStr = "03 Best of Time" >> >> >> >> >> > >> >> >> >> >> > If IsNumeric(xStr) Then txtHold.Text = "Yes" Else >> >> >> >> >> > txtHold.Text >> >> >> >> >> > = >> >> >> >> >> > "No" >> >> >> >> >> > >> >> >> >> >> > Can you help please >> >> >> >> >> > >> >> >> >> >> > Ron >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> Ron, >> >> >> >> >> >> >> >> >> >> depending on where the number(s) are, Val(xStr) may work. >> >> >> >> >> >> >> >> >> >> The ancient Val function returns a Double if the string >> >> >> >> >> starts >> >> >> >> >> with >> >> >> >> >> a number. It stops conversion when it encounters a >> >> >> >> >> non-numerical >> >> >> >> >> character. If the string starts with a non-numerical >> >> >> >> >> character >> >> >> >> >> it >> >> >> >> >> will return 0. It's not localized, it recognizes only the dot >> >> >> >> >> as >> >> >> >> >> decimal sign. >> >> >> >> >> Spaces are totally ignored by Val. >> >> >> >> >> >> >> >> >> >> Here some examples: >> >> >> >> >> Val("123 that's for me") will return 123 but >> >> >> >> >> Val("1, 2, 3, that's for me") will return 1, because there is >> >> >> >> >> a >> >> >> >> >> comma after the 1. >> >> >> >> >> Val(".25 $") will return 0.25 >> >> >> >> >> Val("$ 125") will return 0, because the string starts with a >> >> >> >> >> non-numerical character >> >> >> >> >> Val("5 6 7 8") will return 5678 >> >> >> >> >> Val("- 12" will return -12 >> >> >> >> >> >> >> >> >> >> If you are certain about how your data looks like, >> >> >> >> >> and you want speed, Val may be your choice. >> >> >> >> >> >> >> >> >> >> Helmut. >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> . >> >> >> >> >> >> >> >> >> . >> >> >> >> >> >> >> . >> >> >> >> >> . >> >> >> . >> |