Temp.txt

  # You should change to your path.
  setwd('D:\\Dropbox\\GIBMS_BMLGoh\\ADM\\Data\\Code')
  
  NowPath = getwd() # save now path
  source('ADMNeuroPsyLoadCSV.r') # skip warnings(), that ok

  # You should change to your path.
  CodingSheetFolderPath = 'D:\\Dropbox\\GIBMS_BMLGoh\\ADM\\Data\\CodingSheetCSV'
  
  setwd(CodingSheetFolderPath)
  CsvList = dir()






  # [Undo] check any other sub-file name in Folder
  # and/or file format error

  LatestCodingNum = 10
  #LatestCodingNum = as.numeric(substr(CsvList[length(CsvList)],start=5,stop=7)) # get latest coding done
  # so this code only can use in filename : "ADMSXXX.csv", XXX for Subj. Num

  SubTestList = c("Profile", "Body", "Handiness", "GDS", "SelfEva", "STAT", "AD8",  
                  "Demo", "Language", "MedHistory", "DisFactor", "Exercise", "Diet",
				  "MMSE" #, "WMS", "WAIS", "TMT", "SVS", "NEO"
				  )
  SubTestTotal = length(SubTestList)
  
  # 1. Source R Code of each Sub Test
  # You should change to your path.
  LoadTaskPath = "D:\\Dropbox\\GIBMS_BMLGoh\\ADM\\Data\\Code\\LoadEachTest"
  setwd(LoadTaskPath)
  for (SubTestNum in 1:SubTestTotal) {
    Str = paste("source('Load", SubTestList[SubTestNum], ".r', encoding = 'utf-8')", sep = "")
	eval(parse(text = Str))
  }
  
  # 2. Declaration Variance
  for (SubTestNum in 1:SubTestTotal) {
    if (SubTestNum == 1) {
	  Str = paste("Data = Load", SubTestList[SubTestNum], "(1, LatestCodingNum, LoadTaskPath)", sep = "")
	} else {
	  Str = paste("Data = c(Data, Load", SubTestList[SubTestNum], "(1, LatestCodingNum, LoadTaskPath))", sep = "")
	}
	eval(parse(text = Str))
  }

  # Call Individual CSV Sheet
  setwd(CodingSheetFolderPath)
  for (CsvListNum in 1:LatestCodingNum) {
    NowCodingNum = as.numeric(substr(CsvList[CsvListNum],start = 5,stop = 7))
	# don't load header, missing data put null
	DataTemp = read.csv(CsvList[CsvListNum], header = FALSE, na.string = "NULL", ) 
	# if seat error, everything wrong ! I use S095 to make.
	
	# 3. Read CSV by Coordination
	for (SubTestNum in 1:SubTestTotal) {
	  Str = paste("StrMat = Load", SubTestList[SubTestNum], "(2, NowCodingNum, LoadTaskPath)", sep = "")
	  eval(parse(text = Str))
	  VarTotal = length(StrMat)
	  for (VarNum in 1:VarTotal) {
	    Str = StrMat[VarNum]
		eval(parse(text = Str))
	  }
	}
  }
  
  # 4. Data Frame Construction
  DataDF = as.data.frame(Data)