kencoba

package iteration.first

import java.util.Date

object Scenario1 {

  def main(args: Array[String]) = {
    var p = new Parkarea(3)
    var t1 = p.checkin
    var t2 = p.checkin

kencoba

def expression(cells:List[String], rows:Int) = {

  val ors = cells.map(c => c + rows + "=\"?\"," + c + rows + "=\"\"").mkString(",")

  val corrects = cells.map(c => c + "$1").mkString(",")

  val answers = cells.map(c => c + rows).mkString(",")

  "IF(OR(" + ors + "),\"?\",IF(AscStr" + cells.size + "(" + answers + ")=AscStr" + cells.size + "(" + corrects + "),\"o\",\"x\"))"

kencoba

((:version . 0) (:type . :syncstitch-model)
 (:definitions (:type . :text)
   (:text ";Definitions----------------------------------"
	 "(define-event engineOn)" "(define-event engineOff)" ""
	 "(define-event on)" "(define-event off)" "(define-event resume)" ""
	 "(define-event brake)" "(define-event accelerator)" ""
	 "(define-event clearSpeed)" "(define-event recordSpeed)"
	 "(define-event enableControl)" "(define-event disableControl)" ""
	 "(define-event speed)" "" "(define-event setThrottle)" ""
	 "(define-channel is-ss (x)" "  '((engineOn)(engineOff)))" ""

kencoba

Option Explicit

Sub FileList()
    Dim Files As Variant
    Files = GetFilePathList("c:\Samples", "*.pdf")
    
    Range(Cells(1, "A"), Cells(UBound(Files, 2), "B")) _
        = Application.WorksheetFunction.Transpose(Files)
End Sub

kencoba

Option Explicit

Sub FileList()
    Dim Files As Variant
    Files = GetFilePathList("c:\Samples", "*.pdf")

    Range(Cells(1, "A"), Cells(UBound(Files, 2), "B")) _
        = Application.WorksheetFunction.Transpose(Files)
End Sub

kencoba

Option Explicit

' 2014/05/08 Kenichi Kobayashi
'
' # Prepare
'
' Before you run the VBA macro, make worksheet as below.
' |target directory|target filename|destination directory|destination filename| options|
'  
' ## Options for Word

kencoba

Option Explicit


' 2014/05/08 kencoba

Public Sub ToPDF()
    Dim i As Integer
    i = 2

    With Worksheets("Sheet1")

kencoba

;; User behaviors
;; -----------------------------
;; Behaviors are stored as a set of diffs that are merged together
;; to create the final set of functionality that makes up Light Table. You can
;; modify these diffs to either add or subtract functionality.
;;
;; Behaviors are added to tags, objects with those tags then automatically gain
;; whatever logic the behavior imparts. To see a list of user-level behaviors,
;; start typing a word related to the functionality you want in between the square
;; brackets (e.g. "theme").

kencoba

Sub PPCode()

    ActiveDocument.Select

    Dim codelines As Paragraphs
    Set codelines = Selection.Paragraphs
    
    Selection.Copy
    
    Dim lines As Long

kencoba

Sub PPCode()

    ActiveDocument.Select

    Dim codelines As Paragraphs
    Set codelines = Selection.Paragraphs

    Selection.Copy

    Dim lines As Long