常連

注目の的

社会貢献

質問力

自己紹介

ExcelVBAにてDictionaryからデータを抽出し、
シートに張り付ける処理を作成しています。

大量のデータを処理する際に、
「文字列の領域が不足しています」という旨のエラーとともに止まってしいます。

いろいろ処理を削っていくと、最後は①のようにディクショナリから値を取得するだけで消費メモリがどんどん増えていくところまでわかりました。
①の代わりに②の処理にすると、メモリは一定のままでした。
キー値のつくりかたに問題があるのでしょうか？
(メモリ消費量はタスクマネージャで確認しています)


＃ソースのイメージ
＃varValueはVariant型の2次元配列で、シートの特定範囲の値を丸々保持
＃dicDataは文字列(150文字程度)のキーに、文字列(6文字)の値を保持した"Scripting.Dictionary"

For iii = 1 To 10000

  Dim key as String
  key = varValue(iii,1) & varvalue(iii,3) & varvalue(iii,5) '実際には10個程度の変数を連結

  Dim data as String
  data = dicData.item(key)         '①メモリがどんどん消費されていく
' data = dicData.item("固定値")   '②メモリ消費量は一定

Next iii

Excel VBA Dictionaryからデータ取得時のメモリリークについて

以下の`Sample1`と`Sample2`はどちらも`C:\Temp`のサブディレクトも含めたファイル一覧を取得する関数です。
`Sample1`は'Sample2'よりも実行時間が短いですが、コマンドプロンプトが表示されてしまいます。

質問①`Sample1`でコマンドプロンプトを画面表示させない方法はありますか？
質問②`Sample1`,`Sample2`以外に素早くファイル一覧を取得できるような方法はありますか？

```
Sub Sample1()
    Dim WSH, wExec, sCmd As String, Result As String
    Set WSH = CreateObject("WScript.Shell")
    sCmd = "dir /B /S C:\Temp"
    Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
    Do While wExec.Status = 0
        DoEvents
    Loop
    Result = wExec.StdOut.ReadAll
    MsgBox Result
    Set wExec = Nothing
    Set WSH = Nothing
End Sub
```


```
Sub Sample2()
    Call FileSearch("C:\Temp")
End Sub

Sub FileSearch(Path As String)
    Dim FSO As Object, Folder As Variant, File As Variant
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each Folder In FSO.GetFolder(Path).SubFolders
        Call FileSearch(Folder.Path)
    Next Folder
    For Each File In FSO.GetFolder(Path).Files
        Debug.Print File.Path
    Next File
End Sub
```

【VBA】サブディレクトリも含めたファイル一覧を素早く取得したい

a = [1.44, 2.3, 5.353636, 0.435]

上記リストの値全てを小数点以下2位までにした上で、次の様な出力をさせたいです。

値は1.44
値は2.30
値は5.35
値は0.43

----------------------------------------------------------

なお、現時点でのコーディング状況は以下の通りになります。
```
print(['{:.2f}'.format(n) for n in a])
```

python3でリストの桁を揃えた数値の出力について

変数aの並びを逆順にし、値が1のものを削除した後、値が4のindexをpython3で出力したいです。

a = [1, 5, 2, 4, 9]

なお、現時点でのコーディング状況は以下の通りになります。
```
a.reverse()
print(a)
```

リストの値の操作について

###前提・実現したいこと
PythonのスクリプトでCSVをリストとして読み込んだ場合と単に同じ数字を要素として持つリストを作成して場合、それぞれのループ処理の出力結果が異なる理由と解決方法を知りたいです。実現したい結果としてはCSVファイルを読み込んだ際にも数字のみが出力されるようにしたいです。

###発生している問題・エラーメッセージ
２つのループ処理を回した出力結果

ループ処理１：
<class 'list'>
<class 'str'>
8389418880
<class 'str'>
8389033380
<class 'str'>
8938906295

ループ処理２：
角括弧とクォーテーション付きで出力されてしまう
<class 'str'>
['8389418880']
<class 'str'>
['8389033380']
<class 'str'>
['8938906295']

###該当のソースコード
ループ処理１：
a = ['8389418880','8389033380','8938906295']
print(type(a))
for val1 in a:
    print(type(val1))
    print(val1)

ループ処理２：
上記aと同じ３つの数字をもつCSVファイルを読み込む
for val in csv.reader(open(list),delimiter=','):
    val = str(val)
    print(type(val))
    print(val)

###試したこと
str関数にてリスト型を文字列に変換しても結果は変わらず。

###補足情報(言語/FW/ツール等のバージョンなど)
python3.5

Python CSVのリストをループ処理した際の出力結果['xxx']を数字だけにしたい

Pythonのプログラムで質問です。
2つのCSVファイルがあります。
この2つのCSVファイルをrecordsのリストに追加したいのですが、
追加した側が
[['2017/08/31 13:34', '0', ''], ['2017/08/31 13:36', '1', ''], ['2017/08/31 13:39', '0', ''], ['2017/08/31 13:42', '1', ''], [['2017/08/31 15:06', '0', '']]]
のように最後が追加した部分なのですが、"[]"が連続してしまいます。

recordsのリストにlog2.csvのリストを追加する方法を教えて下さい。


log.csv
2017/08/31 13:34, 0,
2017/08/31 13:36, 1,
2017/08/31 13:39, 0,
2017/08/31 13:42, 1,

log2.csv
2017/08/31 15:36, 0,


```python
# -*- coding: utf-8 -*-

import csv
import datetime


#CSVファイルを読み込んで、各行毎のリストにする。
f = open(".csv")
reader= csv.reader(f, delimiter=",", quotechar='"')
records = list(reader)
f.close()

f = open("log2.csv")
reader= csv.reader(f, delimiter=",", quotechar='"')
records.append(reader)
f.close()

print (recorda)


```

pythonのリストに読み込んだCSVを追加する

エンジニアならこれは読んでおけ みたいな本を教えてください。
ほかにも読んですごく良かった本などでも知りたいです。

アルゴリズムの本や正規表現、TCP/IPなどなど
お願いします