filename as string?

[O(- |-)O]

преставьте што у меня имена файла заканчиваютса- на 1,2,3,4... - а начинаютса на 2003,2004, по середине есть информация типа "полёты" (2003_полёты_1) первое число год последнее месац- а мне надо в vb ето всё превратить в стринг да так штобы потом с ним можно было работат- например достать первые четыре числа и последнее+ превратить его в инт? как мне сделать:
А)представить имя файла в виде стринга
Б)из стринга достать числа и превратить в интегер- как на паскале может и в vb есть такие функции?

[O(- |-)O]

punkt (a) snimaetsa sam soboj

[GSerg]

Если числа идут прямо с начала, то можно сразу Val.
Если нужен фильтр, то посимвольно перебирай и смотри IsNumeric каждого символа.

[Faust]

Выглядеть это будет где-то так (FName - имя файла,Y - год,M - месяц):

Код: Выделить всё

Dim FName As String, Y As Integer, M As Byte
'--------------------------------------------------
'Здесь идет нужный код и задается FName
'--------------------------------------------------
Y=CInt(Left$(FName,4))
M=CByte(Right$(FName,1))
If Left$(Right$(FName,2),1)="1" Then M=M+10


ЗЫ. Да, это - первый пришедший в голову вариант, так что если найдутся записи выполненные до 1000 или после 9999 года, а также в месяцы с номерами меньше 0 или больше 19 - прошу меня извинить.

[Sedge]

Вот еще вариант...

Код: Выделить всё

Dim sFileName As String, sYear As string, sNumber As String
Dim vArray as Variant

  vArray = Split (sFileName, "_")
  sYear = CInt(vArray(LBound(vArray)))
  sNumber = CInt(vArray(UBound(vArray)))



[O(- |-)O]

big chelovecheskij spasib!!!!!