市外局番、市内局番、加入者番号を別フィールドで記録したCSVがあります。(120列)
エクセルでそのまま読み込むと前ゼロが消えてしまうので、以下の方法をとっています。
1.拡張子変更
hoge.csv を hoge.txt に変更
2.ファイル→開く→テキストファイル→hoge.txtを選択
3.テキストファイルウィザード
4.電話番号の項目を「文字列」に指定する。
この一連の流れをマクロにしたいのですが、うまくいきません。
[マクロ1]
Sub csv_open1()
Dim myFieldInfo(1 To 256) As Variant
Dim i As Integer
Dim strFileName
strFileName = Application. _
GetOpenFilename
If strFileName <> False Then
For i = 1 To 256
myFieldInfo(i) = Array(i, 2)
Next
Workbooks.OpenText strFileName, _
DataType:=xlDelimited, _
Comma:=True, FieldInfo:=myFieldInfo
End If
End Sub
▼結果
失敗。前ゼロが消えた状態で読み込まれた。
Arrayの256を120にしても同様でした。
myFieldInfo(i) = Array(i, 2)で文字列に指定したはずなのになぜ文字列にならないのでしょうか。
ご存知の方、よろしくお願いいたします。
市外局番、市内局番、加入者番号を別フィールドで記録したCSVがあります。(120列)
エクセルでそのまま読み込むと前ゼロが消えてしまうので、以下の方法をとっています。
1.拡張子変更
hoge.csv を hoge.txt に変更
2.ファイル→開く→テキストファイル→hoge.txtを選択
3.テキストファイルウィザード
4.電話番号の項目を「文字列」に指定する。
この一連の流れをマクロにしたいのですが、うまくいきません。
[マクロ1]
Sub csv_open1()
Dim myFieldInfo(1 To 256) As Variant
Dim i As Integer
Dim strFileName
strFileName = Application. _
GetOpenFilename
If strFileName <> False Then
For i = 1 To 256
myFieldInfo(i) = Array(i, 2)
Next
Workbooks.OpenText strFileName, _
DataType:=xlDelimited, _
Comma:=True, FieldInfo:=myFieldInfo
End If
End Sub
▼結果
失敗。前ゼロが消えた状態で読み込まれた。
Arrayの256を120にしても同様でした。
myFieldInfo(i) = Array(i, 2)で文字列に指定したはずなのになぜ文字列にならないのでしょうか。
ご存知の方、よろしくお願いいたします。
こんばんわ毎度毎度、質問続きで恐縮です。現在、ファイルをわけて、DBに商品登録をする、というスクリプトを作っています。トップ画面の商品入力フォームから商品登録の確認画面まではいけるのですが、
その、確認画面で登録ができずに悩んでいます。
下のスクリプトは、入力フォームで商品名と値段が入力されたとき
追加ボタンを押し登録をするスクリプトにしようと思い作成しました。
ただ、登録ボタンを押すと、「Query failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ')' at line 1」という構文誤りのエラーが出てしまうのです。
また、入力フォームからの商品や値段の受け渡しはPOSTでしようと思いました。
ご回答願えますでしょうか?
//商品登録部分
$submit = $_POST["submit"];
$_item = $_POST["item"];
$price = $_POST["price"];
if($submit == "追加"){
$item = $_POST["item"];
$price = $_POST["price"];
if($contact=mysql_connect("host","admin","root")){
echo "<center><strong>商品登録表示</strong></center><br>";
mysql_select_db("test", $contact);
$query = "INSERT INTO shoppingtable (item, price) VALUES ('".$item."',".$price.")";
$query2 = 'SET NAMES sjis';
mysql_query( $query2 );
$result = mysql_query($query) or die('Query failed: ' . mysql_error());
}
if($submit){
header("Location:shoppingformCompletion.php");
}
}
//ここまで
#include <stdio.h>
main(){
int i;
int n;
double data[100];
double total;
double average;
printf ("# of data =");
scanf ("%d" , &n);
for (i = 0; i < n; i++){
printf("data[%d] = ", i+1);
scanf("%lf" , &data[i]);
}
total = 0;
for (i = 0; i < n; i++){
total = total +data[i];
}
average = total / n;
printf("total = %g\n", average);
for (i = 0; i < n; i++){
printf("data[%d] : %6.1f %%\n" , i+1,
(data[i] - average) / average * 100.0);
}
}
上のプログラムに対し、増加率の代わりに標準偏差を計算し出力するように改造せよ。という課題が出たのですが、標準偏差の計算の仕方が分かりません。教えてください。
よろしくお願いします。
宜しくお願い致します。
ユーザーフォームへのデータ入力を繰り返したいのですが、うまく動いてくれません。
登録件数分データを入力(textbox2)し、それをExcelのシートに出力していきたいと思っています。
具体的には
Dim 登録件数 as integer
DIM i as integer
For i = 1 To 登録件数
TextBox1.Value = i
Cells(i, 2).Value =textbox2.value
TextBox2.Value = ""
Next i
のようなことを考えていますが、これで実行すると、2回目以降、ユーザーフォームのtextbox2にデータを入れることができません。
初歩的な質問で誠に恐縮ではございますが、どこを正せば動くようになるのか、ご指導の程宜しくお願い致します。
宜しくお願い致します。
ユーザーフォームへのデータ入力を繰り返したいのですが、うまく動いてくれません。
登録件数分データを入力(textbox2)し、それをExcelのシートに出力していきたいと思っています。
具体的には
Dim 登録件数 as integer
DIM i as integer
For i = 1 To 登録件数
TextBox1.Value = i
Cells(i, 2).Value =textbox2.value
TextBox2.Value = ""
Next i
のようなことを考えていますが、これで実行すると、2回目以降、ユーザーフォームのtextbox2にデータを入れることができません。
初歩的な質問で誠に恐縮ではございますが、どこを正せば動くようになるのか、ご指導の程宜しくお願い致します。