I have a text file that I need to change a value, ex. 5, to a new value, ex. Lakeview Elementary School. I am very new to VB and am not sure where I went wrong (or if anyof it is even right:)
CODE
'**********************************************************************
' Visual Basic Transformation Script
'************************************************************************
Function Main()
dim Schlid
dim SName
Schlid = DTSSource("Col07")
DTSDestination("Col07") = SName
Select Case Schlid
Case=5
SName=Lakeview Elementary School
Case=6
SName=Stocktrial Elementary School
Case=7
SName=Hillcrest Elementary School
Case=8
SName=Meadowlark Elementary School
Case=9
SName=Wagonwheel Elementary School
Case=10
SName=Conestoga Elementary School
Case=11
SName=Rawhide Elementary School
Case=12
SName=Paintbrush Elementary School
Case=14
SName=Sunflower Elementary School
Case=15
SName=Pronghorn Elementary School
Case=20
SName=Little Powder School
Case=22
SName=Recluse School
Case=23
SName=Rozet Elementary School
Case=26
SName=Cottonwood Elementary School
Case=31
SName=4-J School
Case=101
SName=Sage Valley Junior High School
Case=102
SName=Twin Spruce Junior High School
Case=150
SName=Wright Junior Senior High School
Case=151
SName=Campbell County High School
Case=152
SName=Westwood High School
Main = DTSTransformStat_OK
End Function
29 Aug, 2008 - 12:53 PM
| 