গণ প্রসেসিংয়ের জন্য আমি এইরকম একটি স্ক্রিপ্ট সুপারিশ করব (উদাহরণস্বরূপ পার্লে):
#/usr/bin/perl
use strict;
use warnings;
use DBI;
my $dir = "/your/path/to/mdb/files";
opendir( DIR, "$dir" );
while( readdir( DIR )) {
my $filename = $_;
next unless( $filename =~ /.mdb$/ ); # skip non-Access entries
my $dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb); dbq=$dir/$filename');
# This select will retrieve all Access objects that are Tables and not system tables
my $sql_outer = 'select name from MSysObjects where type = 1 and name not like "MSys*"';
my $sth_outer = $dbh->prepare( $sql_outer );
while( my @table_name = fetchrow_array( $sth_outer )) {
open( OUT, ">", "$dir/$filename.$table_name.csv" );
$sql_inner = "select * from $table_name";
$sth_inner = $dbh->prepare( $sql_inner );
while( my @row = fetchrow_array( $sth_inner )) {
print( OUT join( ',', @row ) . "\n" );
}
sth_inner->finish();
close( OUT );
}
$sth->outer->finish();
$dbh->disconnect();
}
closedir( DIR )
এটি প্রতিটি। এমডিবি ফাইলকে ".csv ফাইলগুলির একটি গ্রুপে তাদের ডেটাবেস ধারক (.mdb ফাইল) এবং টেবিলের নাম অনুসারে নামকরণ করা" রূপান্তর "করবে। আপনি যদি প্রকৃত কমা দ্বারা পৃথক মানের প্রয়োজন না তবে পাইপ, সেমিকোলন বা যাই হোক না কেন পৃথক তথ্য, ঠিক সেইভাবে মুদ্রণ বিবৃতিটি সম্পাদনা করুন।
উদাহরণটি আপনার সমস্ত .mdb ফাইলগুলির জন্য একই ডিরেক্টরিতে থাকা দরকার যা $ dir পরিবর্তনশীলের মধ্যে কোডযুক্ত হার্ড কোডযুক্ত, তবে এটি সহজেই পরিবর্তিত হতে পারে যাতে আপনি কমান্ড লাইনের ডিরেক্টরী নাম বা পৃথক .mdb ফাইলের নামগুলি হস্তান্তর করতে পারেন।
মনে রাখবেন যে উদাহরণটি কোনওভাবে শক্ত বা ব্যর্থ নয়, আমি পঠনযোগ্যতার জন্য কোনও ত্রুটি সনাক্তকরণ এবং সংশোধনী বাদ দিয়েছি।
উইন্ডোতে পার্ল বাস্তবায়ন রয়েছে, তাও লক্ষ্য করুন (উদাহরণস্বরূপ অ্যাক্টিভস্টেট পার্ল) এবং উদাহরণস্বরূপ উইন্ডো এনভায়রনমেন্টে অবশ্যই পাথর নোটেশনের ক্ষেত্রে সামান্য অ্যাডাপশনগুলির সাথে কাজ করা উচিত।