Мэдээллийг мэдээллийн санд импортлохоос өмнө "цэвэрлэх" нь нэлээд стандарт зүйл юм - эцсийн эцэст та мэдээллийн санг ашиглаж эхэлсэн шалтгаануудын нэг нь тогтоосон шалгуурын талаар тухайн мэдээллийн сангаас урьдчилан таамаглаж болохуйц лавлагаа авах боломжтой байх явдал юм ... тийм үү? Тэгэхээр та жишээлбэл, нэг хүн "$" гэж оруулаад нөгөө хүн үүнийг мөнгөн утга гэж үздэг файлаас мэдээлэл импортлох шаардлагатай болдог гадаад нөхцөл байдлыг хэрхэн зохицуулдаг вэ - эсвэл бүр дор нь хэн нэгэн "am" эсвэл "pm" гэж оруулаад өөр хүн 24 цагийн цагийг ашигладаг уу? Ердийнх шигээ асуудлыг шийдвэрлэх олон арга байдаг ч нэг арга бол тэмдэгт мөр нь зүгээр л тоонуудын багц уу, эсвэл "тоо биш" агуулж байгаа эсэхийг шалгах явдал юм. Бага зэрэг VBA ашиглан энэ төрлийн шалгалт нь энгийн бөгөөд энэ нийтлэл танд хэр энгийн болохыг харуулах болно ...
Бид яагаад үүнийг хийх хэрэгтэй вэ?
Хэрэв та хэрхэн оруулах эсвэл гаргаж авахыг хянах боломжгүй ямар нэгэн төрлийн мэдээллийг импортолж байгаа бол энэ асуудалтай өмнө нь олон (олон!) удаа тулгарч байсан байх - хүмүүс мэдээллийг нэгдмэл байдлаар биш, харин өөрсдөд нь хамгийн тохиромжтой байдлаар оруулдаг. Энэ нь та ... хийх ёстой болох нь цаг хугацааны л асуудал гэсэн үг юм. хийх импортлохоосоо өмнө жигд байна.
Үүний ердийн жишээ бол тоон талбарт өгөгдөл импортлох шаардлагатай боловч өгөгдлийг харахад зарим нь мянга мянган хүнийг таслалаар тусгаарлаж, нөгөө хэсэг нь валютын тэмдэг нэмж оруулсан бөгөөд өөр хэн мэдэх вэ.
Шуурхай анхааруулга!
Мэдээллийн бааздаа цэвэрлээгүй өгөгдлийг импортлох нь ихээхэн сүйрэл дагуулж болзошгүй бөгөөд хамгийн сайн нь таны тайлагналыг гажуудуулж, муугаар нь янз бүрийн зүйл эвдэрч болзошгүй юм. "Бохир" өгөгдлийг импортлох нь таны шалтгаан болж болохгүй хичээж байна хандалтын асуудлыг засах бүх амралтын өдрүүдэд!
Цагаан толгойн үсэгнүүдийг хэрхэн "арилгах" вэ?
Мэдээжийн хэрэг та хайлт хийж, гараар сольж болох боловч үүнийг хийхэд цаг хугацаа шаардагдах бөгөөд та ямар нэг зүйлийг санаж магадгүй (хэрэв та зөвхөн долларын тэмдгийг хайж байгаа бол евро тэмдэг эсвэл таслал, зай гэх мэт зүйлийг санаж магадгүй) . Үүнийг хийх хамгийн хялбар бөгөөд найдвартай арга бол доорх кодыг ашиглан хүнд хэцүү ажлыг Access-д хийх боломжийг олгох явдал юм.
Код руу…
Public Function removeNonNumeric(inString As String) As Long Dim outputString, chrString As String Dim strPos As Integer For strPos = 1 To Len(inString) chrString = Mid(inString, strPos, 1) If IsNumeric(chrString) Then outputString = outputString & chrString Next removeNonNumeric = CLng(outputString) End Function
Код юу хийдэг вэ?
Энд байгаа функц нь маш энгийн. Бидний энд хийдэг зүйл бол дамжуулсан тэмдэгт мөрийг нэг нэгээр нь давтах явдал юм. Хэрэв тэмдэгт нь тоо бол бид үүнийг түр зуурын тэмдэгт мөрөндөө нэмээд дуусаад үүнийгээ "урт" болгон хувиргадаг.
Кодыг өөрт тохируулан өөрчлөх
Таны харж байгаагаар функц нь "урт" гэсэн өгөгдлийн төрлийг буцаадаг - хэрэв та бүхэл тоонууд эсвэл хөвөгч цэгүүдтэй ажиллаж байгаа бол функцийг өөрчилж өгөгдлийн санд тохирох зөв утгыг буцааж өгөх хэрэгтэй.
Зохиогчийн танилцуулга:
Митчелл Цөөрөм бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. засвар SQL Server Өгөгдлийн сан болон excel сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com