読者です 読者をやめる 読者になる 読者になる

テキストファイル書き出し

Option Explicit

Sub createSimplePHP()

Dim myFile As String
Dim myFileNo As Integer

Worksheets("Sheet1").Activate
myFile = Worksheets("Sheet1").Cells(2, 2).Value & "\Sample.php"
myFileNo = FreeFile

'PHPファイルの出力を宣言 #myFileNoは書き込みファイルを指定したもの。
'ファイルを開いていると書き込みエラー70
Open myFile For Output As #myFileNo

'ファイルへの内容の書き込み TODO

'ファイル操作の終了(保存完了)
Close #myFileNo

MsgBox "「Sample.php」を作成しました。"

End Sub

VBA基本

Option Explicit

Sub createStub()

'num変数の定義
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer

 

Dim myMsg As String

'On Error GoTo HandleErr

'指定したセルの値を変数に代入する。
num = Worksheets("Sheet1").Cells(2, 4).Value

'ボタン押下すると変数の内容をメッセージボックスに表示させる
MsgBox ("こんばんは世界")




HandleErr:
myMsg = "エラー番号 : " & Err.Number & vbCrLf & _
"エラー内容 : " & Err.Description
'MsgBox myMsg

End Sub

広告を非表示にする

VBA参考サイト01

www.excel-wing.com

okwave.jp

d.hatena.ne.jp

 

VBA基本(コメントブロック)

 

エクセルVBAは2次元配列を使うと高速かつ便利 | ハウツーIT

 

Office TANAKA - Excel VBA高速化テクニック[セルを配列に入れる]

 

excel-ubara.com

 

<結果これを出力したい?>

array(
"userId" => "user01",
"password" => "garh",
"contentsId" => "c01",
),
array(
"userId" => "user01",
"password" => "garh",
"contentsId" => "c01",
),
array(
"userId" => "user01",
"password" => "garh",
"contentsId" => "c01",
),
);

 

広告を非表示にする

VBAサンプル02

'Option Explicit
Sub test()

Dim strTest1 As String '文字列を入れる変数を宣言
Dim strTest2 As String
Dim strTest3 As String

strTest1 = Worksheets("table").Cells(2, 2).Value
strTest2 = Worksheets("table").Cells(2, 3).Value
strTest3 = Worksheets("table").Cells(2, 4).Value

Debug.Print strTest1 'strTestの中身をデバッグ用プリント
Debug.Print strTest2 'strTestの中身をデバッグ用プリント
Debug.Print strTest3 'strTestの中身をデバッグ用プリント

End Sub

 

広告を非表示にする

VBAサンプル01

'Option Explicit
Sub test()

Dim strTest As String '文字列を入れる変数を宣言
'Dim ws As Worksheet
'Set ws = Worksheets("table")

strTest = Worksheets("table").Cells(1, 2).Value
Debug.Print strTest 'strTestの中身をデバッグ用プリント

End Sub

 

広告を非表示にする

Dto…かどうかわからんがPHPでオブジェクトの配列化

Dto側privateにしていないがどうなのか?

-----------------------------------------------------------

■Sample.php

-----------------------------------------------------------

<?php

require_once("SampleDto.php");

$user = "ユーザ";
$pass = "パスワード";

$dataObj = new SampleDto($user, $pass);
var_dump($dataObj ); // オブジェクトになっている
$dataArr = get_object_vars($dataObj);
var_dump($dataArr); // 連想配列になっている

foreach($dataArr as $dataArrayKey => $dataArraydata) {
echo "<br />";
echo $dataArrayKey . " : " . $dataArraydata;
echo "<br />";
}
?>

 

-----------------------------------------------------------

■SampleDto.php

-----------------------------------------------------------

<?php

class SampleDto {

public $user = null;
public $pass = null;

function __construct($user, $pass) {
$this->user = $user;
$this->pass = $pass;
}

function getUser($user) {
return $this->user;
}

function setUser($user) {
$this->user = $user;
return;
}

function getPass() {
return $this->user;
}

function setPass($pass) {
$this->pass = $pass;
return;
}
}
?>

 

 

追記

こっちで上手くいってしまった。get_object_vars()をしなくてもオブジェクトをそのまま配列化できるのか????たぶんforeach()で取り出せているだけ???

 

<?php
require_once("SampleDto.php");

$user = "ユーザ";
$pass = "パスワード";

$dataArr = new SampleDto($user, $pass);
var_dump($dataArr);

/*$dataArr = get_object_vars($dataObj);

var_dump($dataArr);
*/

foreach($dataArr as $dataArrayKey => $dataArraydata) {
echo "<br />";
echo $dataArrayKey . " : " . $dataArraydata;
echo "<br />";
}
?>