板 1- 前 次 新 レス
for REMA-PING
[5]kiyo：2003/10/06(Mon) 01:14
入出力メニュー
キーデータの変換(lead)
ローカル保存用ダウンロード
ローカルシートのアップロード
* このメニューは通常のアプリケーションの 保存と読み込みにあたります。
・・が 実態はあくまでダウンロードとアップロードです。
省22
[6]kiyo：2003/10/06(Mon) 01:16
何とか、キー読み込みのバグ解消
データ評価順が逆転していてはダメダメである。
さらに評価すべきデータに間違いがあっては直る訳がない。
つるかめつるかめ 0954
[7]kiyo：2003/10/06(Mon) 12:18
それぞれのサーバを識別できるIDを検討
サーバごとに発行したシートに通し番号を付けて管理
(記録ファイル必要)
通し番号でなくてもユニークIDであればOK
この機能の使用・不使用・セット・リセットは(管理)ユーザにゆだねる。
[8]kiyo：2003/10/14(Tue) 21:58
今のところXPS保存は、S-JIS 選択スイッチは付ける方向で
さらに改行コードの選択もつけるってさぁ
encodingにWIN-jp系とMac-roman系も試してみるのだ
[9]kiyo：2003/10/15(Wed) 21:17
忘れないうちにメモ
βリリース前に
AEバージョン選択ボックスは付ける
文字コード選択スイッチは、できれば付ける
図版は入れカエル
サーバIDは、準備する(IPからつくる。設定があれば上書き)
[10]kiyo：2003/10/18(Sat) 21:13
ローカルjsファイルの判定取っ払い
[11]kiyo：2003/10/20(Mon) 17:36
日本語文字化け
修正必要
えーん
[12]kiyo：2003/10/31(Fri) 20:32
'書きかけのソース
Function expList(リスト) As String
s = " "
リスト = s + Trim(リスト) + s
Dim ElList() As String
count = -1
' 一次ループ
For n = 0 To Len(リスト) - 1 省56
[13]kiyo：2003/10/31(Fri) 21:54
'結局書いた
Function supList(BODY)
s = "-"
'ハイフンで区切った整数値を補完して空白区切りリストで返す
BODY = s + Trim(BODY) + s
Dim ElList() As String
count = -1
' 一次ループ
For n = 0 To Len(BODY) - 1 省56
[14]kiyo：2003/10/31(Fri) 21:54
Function expList(リスト) As String
s = " "
リスト = s + Trim(リスト) + s
Dim ElList() As String
count = -1
' 一次ループ
For n = 0 To Len(リスト) - 1 省64
[15]kiyo：2003/10/31(Fri) 21:58
lindex 相当のVBA関数を書く
リスト操作はできないと鬼門
前 次 新