Преобразование varchar в datetime с использованием сценария VB

Question

Мне нужно преобразовать поле даты, которое находится в формате varchar (DDMMYYYY) в DateTime, используя .Net. Я пробовал ряд решений, но все напрасно. Мой источник для этого поля - это плоский файл, а мой пункт назначения - таблица. Я использую скрипт в пакете SSIS.

Ниже приведен пример:

В столбце SampleDate находится в формате ddmmyyyy. Я конвертирую его в MM/dd/YYYY, чтобы преобразовать его в формат даты и времени.

Dim retString1 As String 
Dim slash As Char = ChrW(&H2F) 
retString1 = Row.SampleDate.Substring(2, 2) & "/" 
Dim retString2 As String 
retString2 = Row.SampleDate.Substring(0, 2) & "/" 
Dim retString3 As String 
retString3 = Row.SampleDate.Substring(4, 4) 
Dim retString4 As String 
retString4 = retString1 & retString2 & retString3 

Dim fromDt As Date = Convert.ToDateTime(retString4) 
fromDt = Row.SampleDate 

P.S. : Я не ищу SQL Query для преобразования, поэтому перед комментированием, пожалуйста, внимательно прочитайте весь вопрос. Я ищу код VB, а не код SQL.

Answer 1

Просто переверните fromdt = Row.SampleDate

до

Row.SampleDate = fromdt 

И ваш сценарий должен работать, но см. Ниже, чтобы упростить некоторые, если хотите.

КАК СДЕЛАТЬ ЭТО БЕЗ SCRIPT --see ниже метода сценария

Вы можете сделать это намного проще для себя, если вы используете Derived Column преобразование вместо этого! Преобразование преобразования данных не работает, поскольку оно не позволяет вам манипулировать значением столбца, а скорее только типом данных. Но в выведенном столбце вы можете вырезать строку и передать результат в качестве даты.

Таким образом, источник в производный столбец в пункт назначения в потоке данных.

В производном столбце ваш добавить новый столбец и использовать следующее как выражение (заменяющего DateString с name of your column, содержащей дату в формате ddMMyyyy)

затем использовать это как Expression:

(DT_DATE)(SUBSTRING(DateString,3,2) + "/" + (LEFT(DateString,2) + "/" + RIGHT(DateString,4))) 

(dt_date) может быть переключен на другой формат даты, если вы хотите, и этот тип будет автоматическим lly установить Data Type на Derived Column. Затем на вашей карте destination введите new derived column в destination column вместо оригинальной колонки с source.

Вот именно ваши сделали, нет сценариев.

КАК СДЕЛАТЬ ЭТО скрипт

Для решения маршрута, если вы хотите, чтобы остаться со сценарием и, возможно, придать некоторую дополнительную логику, а не простое преобразования вы можете сделать это через transformationscript component в вашем data flow task. Это произойдет из трансформации derived column выше, но по существу будет делать то же самое только через скрипт. Я делаю шаги здесь, я предполагаю, что вы уже знаете некоторые из них, если кто-то еще споткнется на эту должность.

• Добавьте компонент сценария, когда вы выбираете «преобразование» и соединить его с вы источник
компонент
• Open Script и перейдите в раздел «Inputs and Outputs» и добавить вывод провести новый столбец и установите тип данных , Новый столбец необходим, потому что вы изменяете типы данных

• перейти в раздел "Input Columns" и выберите SampleDate колонку

• вернуться "Script" и выберите Vi sual Basic как ваш язык скриптов.
• Нажмите «Редактировать сценарий», чтобы начать кодирование.
• Прокрутите страницу вниз, пока не найдете sub Input0_ProcessInputRow(ByVal Row..., где вы поместите свой код.

Этот код работает:

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer) 

    If Not Row.SampleDate_IsNull Then 

     Row.DerivedDate = DateTime.ParseExact(Row.SampleDate, "ddMMyyyy", System.Globalization.CultureInfo.InvariantCulture) 

    End If 
End Sub 

Как @Shiva в комментариях предложил вы могли бы расширить это и использовать TryParseExact или обернуть его в попытке поймать блок, так что если разбор даты не удается, то будет просто очистить/удалите значение из записи, и импорт будет продолжен. Я оставляю это до вас, так как обработка неверных данных - это скорее вопрос требований бизнеса.

Answer 2

Чтобы преобразовать строку даты в VBScript вы либо использовать CDate() , который делает преобразование для вас, но зависит от текущих региональных настроек или DateSerial():

>> s = "13041953" 
>> d = DateSerial(CInt(Right(s,4)), CInt(Mid(s,3,2)), CInt(Left(s,2))) 
>> WScript.Echo s, TypeName(d), d 
>> 
13041953 Date 13.04.1953 (german locale)